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00176271CC COMPILE MINI/TEXT ALGOL LIBRARYSALGOL FILE CARDSSYMBOL/MANYTEX DISK E 
UCSC B=5700 GEORGIA TECH ALGOL COMPILER MARK XIII,36 MONDAYs 09/27/76» 4155 PM, 
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* COMMENT 5 4 10 7 Tet 1 90001000 
* MINI STEXT * 2 900002000 
* MARK V,29 * 3 00003000 
* * 4 00004000 
*( Ale * § 00005000 
* MINI/TEXT. 1s A MULTI*USER ALGOL PROGRAM FOR THE Be5700 DESIGNED. * 6 00006000 
* TO ALLOW USERS TO CREATE AND MAINTAIN PROGRAM AND DATA FILES ON * 7 00607000 
* THE DISK FROM REMOTE CONSOLESs IN ADDITIONs A USER MAY COMPILE * & 00008000 
* AND RUN SQURCE LANGUAGE PROGRAMS AND EXECUTE LIBRARY PROGRAMS * 9 00009000 
* AND HAVE THE RESULTS LISTED ON A REMOTE. * 10 00010000 
: - . saci diethanctelSerie cle acpata todo 
* THESE. FEATURES. ARE. IMPLEMENTED BY PROVIDING FILE. MAINTENANCE * 12 00012000 
* FUNCTIONS» SIMULATED KEYPUNCH CAPABILITIES AND VARIOUS OTHER * $3 00013000 
* CONTROL STATEMENTS, * 44 00014000 
* * 15 00015000 
* _ THE STATEMENTS USED TO COMMUNICATE WITH MINI/TEXT ARE DEFINED. + (16 00016000 
* AND DESCRIBED IN THIS DOCUMENTs * 17 00017000 
* * 18 00018000 
S CONVENTIONS USED IN THE DESCRIPTION OF MINI/TEXTe * 49 00019000 
* THE SYNTAX OF THE STATEMENTS USED TO COMMUNICATE WITH MINI/TEXT  «* 20 00020000 
* IS DESCRIBED THROUGH THE USE OF METALINGUISTIC SYMBOLS» THESE * 21 00021000 
* | et HAVE THE FOLLOWING MEANINGS® * 22 00022000 
+ oe * 23 00023000 
* he e > LEFT AND RIGHT BROKEN BRACKETS “ARE USED TO CONTAIN ONE | * 24 00024000 
* — OR MORE CHARACTERS REPRESENTING A METALINGUISTIC. VARIABLE* 25 00025000 
* WHOSE VALUE IS GIVEN BY A METALINGUISTIC FORMULA, * 26 00026000 
* * 27 00627000 
* B. s3= THIS SYMBOL MEANS "IS DEFINED ASs»s" AND SEPARATES THE -* = - 28 00028000 
*  METALINGUISTIC VARIABLE ON THE LEFT OF THE FORMULA FROM * 29 00029000 
* ATS: DEFINITION ON THE RIGHT. * 30 00030000 - 
* oe wee * 34 00031000 
* Ce. 7 THIS SYMBOL MEANS "ORs" IT IS USED TO SEPARATE MULTIPLE. * 32 00032000 
* DEFINITIONS OF A METALINGUISTIC VARTABLEs * 33 00033000 
* Se ere ee #34 90034000 
* ~D. € 1 BRACKETS ARE USED TO ENCLOSE METALINGUISTIC VARIABLES  * 38 00035000 
* WHICH ARE DEFINED BY THE MEANING OF THE ENGLISH*LANGUAGE * 36 00036000 
* EXPRESSION CONTAINED WITHIN THE BRACKETS. _ * 37 00037000 
* . * 38 00038000 
* ANY MARK OR SYMBOL IN A METALINGUISTIC FORMULA WHICH IS NOT ONE * 39 00039000 
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* OF THE ABOVE. WeTALINGUISTEC SYMBOLS DENOTES ITSELF. THE * 40 00040000 
* JUXTAPOSITION OF METALINGUISTIC VARIABLES AND/OR SYMBOLS IN A * 41 00041000 
* METALINGUISTIC FORMULA DENOTES JUXTAPOSITION OF THESE ELEMENTS * 42 00042000 
* oN. THE. CONSTRUCT INDICATEDs * 43 00043000 
* ow 44 00044000 
“ENTER. STATEMENT, * 45 060045000 
— eSYNTAXe * 46 00046000 
* THE SYNTAX FOR <ENTER STATEMENT> IS AS FOLLOWS? * 47 00047000 
x * 48 06048000 
* .SENTER STATEMENT> t25 * <ENTER VERB> <ENTER PARAMETERS> —* 49 00049000 
* -- €ENTER. VERB? t83 ENTER / MAKE / CREATE * 50 00049100 
* -SENTER PARAMETERS> ¢3= <ENTER TYPE> <FILE NAME> * ~—6§41 00650000 » 
* ENTER TYPE> tt= PROGRAM / DATA / PATCHES / CEMPTY) * ‘52 00081000 
* <FILE NAME> $¢= [£7 CHARACTER OR LESS PREFIX] [SLASH] * 53 00052000 
* [7 CHARACTER OR LESS SUFFIX) * 54 00053000 
*, a ~—~§5 90054000 
*SEMANTICS, ae * 56 00055000 | 
* THE. ENTER STATEMENT ENABLES A REMOTE USER To ESTABLISH. A DATA * 57 00056000 
* - FILEs SYMBOLIC PROGRAM OR SYMBOLIC PROGRAM PATCH FILE ON DISK. * §8 00087000 
* * 59 00058000 
* AN ENTER TYPE SPECIFIES THE KINO OF INFORMATION TO BE ENTERED * 60 00059000 
* _AND DETERMINES THE BLOCKING SPECIFICATIONS USED WITH THE FILE ON »* 61 00060000 
* DISKe TF. AN ‘ENTER ‘TYPE IS NOT SPECIFIED "PROGRAM" qs” ASSUMED« * 62 00061000 
* oe Ce 63 00062000 
* “INPUT MAY BE FROM EITHER PAPER TAPE OR THE KEYBOARD ANO MAY * 64 00063000 
* CONSIST OF AS MANY AS 80 CHARACTERS» THE CARRIAGE RETURN AND * 65 00064000 
* LINE FEED CHARACTERS ARE NOT TRANSMITTED TO MINI/TEXT SO A * 66 00065000 
* USER MAY ALLOW A SINGLE LINE OF TEXT TO EXTEND OVER SEVERAL _* 67 00066000 
* PHYSICAL LINES IF HE DESIRES. WHEN ENTERING "PROGRAM" OR PROGRAM * 68 00067000 
to — MPATCHES" ONLY THE FIRST 72 CHARACTERS OF AN INPUT. LINE ARE ee 69 00068000 
* PLACED IN THE PROGRAM RECORD, * 7800069000 
: * 74 00070000 
* SEQUENCE NUMBERS» WITH THE EXCEPTION OF ENTERING PATCHES» ARE * 72 00071000 
aed * _ AUTOMATICALLY PROVIDED. THESE NUMBERS ARE STORED IN THE * 73 00072000 
* APPROPRIATE PLACE IN PROGRAM STATEMENTS AND BECOME A PERMANENT —— * 74.00073000 
* PART OF THE PROGRAM FILE. SEQUENCE NUMBERS DO NOT BECOME A PART * 75 00074000 
* OF THE OATA FILE AND SERVE ONLY AS REFERENCE NUMBERS IN THE +. 76 000675000 
* EVENT A USER CHOOSES TO CHANGE A DATA RECORD OR TERMINATE THE ” 77 08076000 
* PRESENT SESSION AND RESUME FROM THAT POINTs AT A LATER TIME, * 78 00077000 
| * 79 00078000 | 
* WHEN ENTERING PROGRAM PATCHES THE FIRST CHARACTERS OF A LINE. ‘OF. #80 00079000 
” TEXT ARE ASSUMED TO BE A SEQUENCE NUMBER, IF THESE CHARACTERS ARE * 81 00080000 
* “NUMERIC THEY ARE PLACED IN THE PROPER POSITION WITHIN THE PROGRAM * 82 00081000 
* RECORD. IF THE REQUIRED DIGITS ARE NOT FOUND AN ERROR * 83 00082000 
* MESSAGE IS EMITTEDe A COLON MAY OPTIONALLY FOLLOW THE SEQUENCE * B4 00083000 
* NUMBERs ee eves . _*  85.00084000 
We * 86 00085000 
* WHILE. ‘OPERATING IN THE ENTER MODE A USER MAY SPECIFY THAT. A *& 87 00086000 
* - SPECIFIC DATA RECORD OR PROGRAM STATEMENT BE MODIFIED THROUGH THE * 88 00087000 
* USE OF THE CHANGE STATEMENT. THE "COMPILE s "CONTROL "2 "COPY", * 89 00088000 
* "SEQUENCE se "LOCK" AND "QUIT"’ STATEMENTS MAY ALSO BE USED WHILE * 960 00089000 
* ‘In THE ENTER MODEe IN WHICH CASE THE FILE CURRENTLY BEING CREATED * 91 00990000 
* «TS MADE A PERMANENT FILE AND ENTERED IN THE DISK DIRECTORY. IN * 92 00091000 
Soha: THE "RENAME, "REMOVE" AND "SEQUENCE RPECIELOATION® #93 00092000 
* STATEMENTS MAY BE USED WHILE IN THE ENTER MODEs | * . 94 00093000 
ra ® 95 00094000 
*RESUME STATEMENT. * 96 00095000 
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*SYNTAX« 


: _SRESUME PARAMETERS> tt= <RESUME TYPE> <FILE NAME> 


«SEMANTICS. 


_ARE ANALOGOUS TO ENTER PARAMETERS WITH THE EXCEPTION OF THE FILE. 
NAME AND RESUMNPTION POINT. IF A FILE NAME IS NOT SPECIFIED THE 
FILE NAME GIVEN IN THE LAST ENTER, STe 

OR SEQUENCE STATEMENT IS ASSUMED, 
{FOR THE RESUMPTION POINT 
LIN. THE FILE AND RESUMPTION IS FROM THAT POINT ONe(IF THE 


* ed 


a2 THE ENO OF THE FILE. IN ANY CASE MINI/TEXT RETYPES THE LAST VALID 


ee STATEMENT» | 
«SYNTAX, 


oe PARAMETERS> tt <CHANGE VERB> <CHANGE TYPE> <FILE NAME> 


- €CHANGE TYPE> %%= PROGRAM / DATA / CEMPTY) 


- <CHANGE NUMBER> tt= CAN INTEGER OF 8 OR LESS DIGITS) 
- -€CHANGE OPTION> tt= R-/ 1/0 / CEMPTY) 
- €CHANGE RESPONSE> tite <TEXT LINED / 


#SEMANTICS, 


THE SYNTAX FOR <RESUME STATEMENT> IS AS FOLLOWS! 
<RESUME STATEMENT> 38= » RESUME <RESUME PARAMETERS? 


<RESUMPTION POINT> 
<RESUME TYPED $3= PROGRAM / DATA / PATCHES / CEMPTY] 
<FILE NAME> 882 £7 CHARACTER OR LESS PREFIX] CSLASH]) 
C7 CHARACTER OR LESS SUFFIX] / CEMPTY) 
_SRESUMPTION POINT> i853 <SEQUENCE NUMBER> / END / CEMPTY) 
“SSEOVENCE NUMBER? tt= CAN Eee OF 8 OR LESS OIGITS) 


THE RESUME STATEMENT PROVIDES THE USER THE ABILITY TO ESTABLISH 
A PROGRAM OR DATA FILE IN MULTIPLE SESSIONS. SPECIFICATIONS 


RESUME» CHANGE» _ Te COP) : 
IF A SEQUENCE NUMBER. IS. GIVEN 
PECIFIES THE LAST VA DINE OF TEXT 


RESUMPTION POINT IS EMPTY GR THE WORD WEND" RE SUMPTION IS FROM 


LINE. OF TEXT MEN THE RESUME STATMENT IS ENTERED» 


THE SYNTAX FOR <CHANGE STATEMENT? IS AS FOLLOWS? 
— <CHANGE | STATEMENTS tte <CHANGE PARAMETERS> e. 
<CHANGE RESPONSE> / 
# <CHANGE PARAMETERS> 3 
<CHANGE RESPONSE> 
<CHANGE NUMBER> <CHANGE OPTIONS 
SHUG VERB> tts CHANGE / FIX / CEMPTY) 


<FILE NAME> 822 £7 CHARACTER OR LESS PREFIX] [CSLASH] 
C7 CHARACTER OR LESS SUFFIX] / CEMPTY) 


* SEQ <INTEGER> / 
* OK 7 * 


ot <CHANGE OPTION> CSPACES] * <MODIFICATION> #* 


CSPACES) * <MODIFICATIGN> ¢« 
<MODIFICATION> @# 


tee LINES tts CA LINE OF TEXT CONSISTING OF 80 OR LESS ss —~S 


CHARACTERS} 
<MODIFICATION> #82 [CORRECTED TexT} 
THE. CHANGE STATEMENT ALLOWS: THE REMOTE USER TO. MODIFY DATA” Records: 
OR PROGRAM STATEMENTS SPECIFIED BY THE CHANGE NUMBER: WHEN THE | 
CHANGE STATEMENT IS ENTERED MINI/TEXT WILL TYPE THE EXISTING 
LINE» PERFORM A CARRIAGE RETURN AND LINE FEEDs AND RETYPE THE 


tt eheene saleces or a a eae cbeceass * £24 8 ek ee ee Re 
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102 
103 
104 
105 
106 
107 
108 
109 
110 
114 


412 


113 
114 


“445 


116 
117 
118 
119. 
120 


T21. 


122 
123 


_ 124 
125 
126. 
427 


128 
129 


_ 330 
134 


132 


133 
134 


435 
136 


137 


138 


139 


140 
144 


142, 
143 


144 


145_ 


146 
147 


148. 


149 


150 
181 


152 
153 


00096000 
00097000 
00098000 
00099000 
00100000 
00101000 
00102000 
00103000 
00104000 
00105000 
00106000 
00107000 
00108000 
00109000 
00110000 
oottioce 
00112000 
00113000 
00114000 
00115000 
00116000 
00116100 
00116200 
00117000 


00118000 


00119000 
00120000 
00121000 
00122000 
00123000 


00124000 


00125000 
00125100 
00126000 


00127000 


00128000 
00129000 
00130000 
00131000 


00132000 
00133000. 


00134000 


06135000. 


00136000 
00437000 
00138000 


00138100 | 


00138200 


00139000 


08140000 


00141000 
00142000 | 


00143000 
00144000 


06145000 


00146000 
00147000 
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- SEQUENCE NUMBER LEAVING THE REMOTE POSITIONED DIRECTLY BELOW THE 
FIRST FILL ABLE CHARACTER OF THE RECORD. SEVERAL CHANGE RESPONSES 
ARE POSSIBLE. 


IF THE USER TYPES A NEW TEXT LINE It WILL REPLACE THE CURRENT 
RECORD WITHOUT CHANGING THE SEQUENCE NUMBER OF THE LINE, 


IF THE USER TYPES "* SEQ" FOLLOWED BY AN INTEGER THE SEQUENCE 


NUMBER OF A PROGRAM RECORD WILL BE CHANGED TO THE INDICATED VALUE 
ee WITHOUT AFFECTING THE REST OF THE RECORD, 


If THE USER TYPES "* OK" THE EXISTING RECORD IS NOT CHANGED. 


THE USER MAY EDIT THE CURRENT TEXT LINE BY REPLACING EXISTING 


CHARACTERS WITH QTHERSs BY INSERTING NEW CHARACTERS INTO THE LINE 
OR BY DELETING CHARACTERS FROM THE LINE. THE <CHANGE RESPONSE> TO. 
PERFORM EDITING CONSISTS OF AN INITIAL ASTERISK FOLLOWED BY. 


A <CHANGE OPTION> TO INDICATE THE TYPE OF EDITING» A SECOND. 


ASTERISK TO INDICATE THE POSITION AT WHICH EDITING IS TO OCCUR» 
THE DESIRED MODIFICATION AND FINALLY A LEFT ARROW TERMINATING THE 


ENITING RECORD, A <CHANGE OPTION> OF "R"® INDICATES REPLACEMENT 


AN "I" INSERTION AND A "DO" DELETIONS 


IF THE <CHANGE OPTION> IS 


LEFT EMPTY AN "R™ IS ASSUMED. EACH OF THE CHANGE OPTIONS ARE. 


A. REPLACEMENT. | 


«DESCRIBED BELOW AND EXAMPLES GIVEN TO ILLUSTRATE THEIR USE, 


AFTER TYPING THE LEADING ASTERISK AND THE <CHANGE OPTION> 


RECORD, 


EXAMPLES #- 


-#CHANGE A/DEMO 1006 
REOGt OTe S454 3210 
O100%* R 
*100¢ 
et EAI Stet 
oie a 


| INSERTION. 

AFTER. TYPING THE ‘LEADING ASTERISK AND THE <CHANGE -oPTION> 
THE USER SHOULD SPACE THE TELETYPE OVER AND TYPE AN ASTERISK 
BELOW THE CHARACTER DIRECTLY PRECEDING THE POSITION AT WHICH 


THE CHARACTERS TO BE INSERTED SHOULD* _: 
© 


THE INSERTION IS TO OCCURe 


_ THE USER SHOULD SPACE THE TELETYPE OVER AND TYPE AN ASTERISK | _ 
BELOW THE CHARACTER DIRECTLY PRECEDING THE CHARACTERS TO BE 
REPLACED e THE DESIRED MODIFICATION SHOULD THEN BE TYPED AND 

FOLLOWED BY A LEFT ARROW. THE CHARACTERS BETWEEN THE SECOND 
ASTERISK AND THE LEFT ARROW WILL REPLACE THOSE IN THE ORIGINAL 


THEN BE TYPED AND FOLLOWED BY A LEFT ARROW, THE CHARACTERS 


INTO THE EXISTING RECORD. 


RECORD LENGTH THEN THE RIGHT MOST CHARACTERS OF THE LINE 


WILL BE LOST. 
 GeeuRs,. 
EXAMPLES! a 
1008 
0100101234543210. 
O1do0r* I 


NO INDICATION IS GIVEN TO THE USER IF THIS 
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BETWEEN THE SECOND ASTERISK AND THE LEFT ARROW WILL BE INSERTED* 20 
IF» AS A RESULT OF INSERTING 
CHARACTERS» THE LENGTH OF THE LINE EXCEEDS THE MAXIMUM ‘ALLOWED | 
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00148000 
06149000 
00012510 
00150000 
00151000 
00152000 
00153000 
00154000 
00155000 
00156000 
00457000 
00158000 
00159000 
00160000 
08160050 
00160100 


00160150 


00160200 


> 00160250 


00160300 
00160350 


500160400 
(08160450 
7 00160500 


00160550 
00160600 
00160650 


- 00160700 
2 00160750 
3 00160800 


00160850 
00160900 
00160950 


7 00161000 


00161050 


00161100 
00161150 


00161200 
06161250 


3 90161300 

4 00161350 
00161400 © 
6 00161450 


00161500 
00161550 


9 00161600 | 
00161650: 
00161700 


00161750 
00161800 
00161850 
00161900 


6 00161950 | 

7 00162000 

3 00162050 
00162100 


00162150 


. 
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THE FIRST THREE CHARACTERS OF A RECORD CAN NOT BE EDITED IN THE. 
“MANNER DESCRIBED ABOVEe IN ORDER TO EDIT THESE CHARACTERS THE. 


DESCRIBED ABOVE AND INDICATES THE POSITION AT. WHICH EDITING. 
Ts TO OCCUR, IF THE FIRST NON@=BLANK CHARACTER IS NOT AN ASTERISK 
THEN EDITING BEGINS AT THE FIRST CHARACTER POSITION OF THE 
RECORD. 


TF THE USER. WISHES TO “CHANGE A RECORD WITHOUT HAVING a RETYPED 


TRE <CHANGE RESPONSE>, 


IF A CHANGE IS ENTERED WHILE IN THE "ENTER" OR WRESUME" MODE a 
THE USER NEED ONLY SUPPLY THE CHANGE NUMBER. 


_.... .TO_LEFFECT A CHANGE TO A RECORD AFTER THE FILE HAS BEEN 
MADE PERMANENT THE USER MUST ENTER THE TYPE OF CHANGE AND 


IF MULTIPLE CHANGES TO A PERMANENT FILE. ARE REQUIRED ONLY THE. 
FIRST SHOULD CONTAIN THE CHANGE TYPE AND FILE NAME. 


*100¢ 
0400!012345543210 
01003 *0Ke 


Co DELETION, 
AFTER. TYPING THE LEADING ASTERISK AND THE <CHANGE OPTION> 


THE USER SHOULD SPACE THE TELETYPE OVER AND TYPE AN ASTERISK 
BELOW THE CHARACTER OIRECTLY PRECEDING THE CHARACTERS TO BE 
DELETEDe THE TELETYPE SHOULD THEN BE SPACED OR TYPED OVER THE 
_ NUMBER OF CHARACTERS TO BE DELETED AND A LEFT ARROW TYPEDs 
THE NUMBER OF CHARACTERS BETWEEN THE SECOND ASTERISK AND TRE 
LEFT ARROW WILL BE DELETED FROM THE EXISTING RECORD, 
EXAMPLES $ 
*1{00¢ 
01002012345543210 
OL0084. 0 *e 
#¥100¢ 
: 0400101234543210 
—OL00*D *OUT] 
*1 006 
0100801233210 
ea as 


USER SHOULD INCLUDE THE <CHANGE OPTION> IN THE <CHANGE PARAMETERS>* 
IF THE FIRST NON*BLANK CHARACTER OF THE <CHANGE RESPONSE? IS 
AN ASTERISK IT IS CONSIDERED AS THE SECOND ASTERISK AS 


EXAMPLES8 
*100 D « 
0100101233210. 
— OLOO8 #23326 
—*g00T*e 
0140080410 
0400210046 
#4 00e 
0400810010110 
0100 WOK 


A COLON SHOULD BE TYPED AFTER THE <CHANGE PARAMETERS?» THE 
CHARACTER FOLLOWING THE COLON is CONSIDERED TO BE THE BEGINNING i 


THE FILE NAME IN ADDITION TO THE CHANGE NUMBER. ~ 
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00162200 
00162250 
00162300 
00162350 
00162400 
00162450 


00162500. 


00162550 
00162600 
00162650 
00162700 
00162750 


00462800 


00162850 
00162900 


»..00162950 


00163000 


00163050 


00163100 
001631450 
00163200 
00163250 


-00163300_ 
00163350 


00163400 
00163450 
00163500 
00163550 


9 00163600 
00163650 


00163700 


00163750 


00163800 
00163850 


; 00163900. 


00163950 
00164000 


A 00164050 


001641400 
00164150 


00164200 


00164250 
00165000 


00166000 
(00167000 


00168000 


00169000 


00170000 


7 00171000 — 
00172000 


00173000 


2 00174000 
00175000 
} 00176000 
, 00177000. 
00178000 


00179000 
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*COMPILE STATEMENT» 
*SYNTAX. 
* THE SYNTAX FOR <COMPILE STATEMENT> IS AS FOLLOWS? 


<COMPILE STATEMENT> t= * COMPILE <COMPILE PARAMETERS> 
<COMPILE PARAMETERS> t= <PROGRAM NAME> / 


 <PROGRAM NAME> tts {7 CHARACTER OR LESS PREFIX] [SLASH] 
[7 CHARACTER OR LESS SUFFIX) 
COMPILE SPECIFICATIONS> tt= <COMPILE OPTION> / 


COMPILE OPTIGN> tte <COMPILER> / 
oe ennai <PROGRAM DYSPOSITION> / 
<INPUT MEDIA SPECIFIER> / 
<NEW TAPE SPECIFIER> / 
_ <COMPILER PRINT FILE DISPOSITION> 
 <COMPILER> ##= ALGOL / XALGOL / BASIC / FORTRAN / CEMPTY) 
_ €PROGRAM DISPOSITION>t!= LIBRARY / GO / SYNTAX / CEMPTY] 
- <INPUT MEDIA SPECIFIER> $32 TAPE / CARD / CARDS / CEMPTY) 
<NEW TAPE SPECIFIER> t= NEW TAPE / NEWTAPE / CEMPTY] 
<COMPILER PRINT FILE DISPOSITION> :%5 PRINTER / LIST / CEMPTY) 


*SEMANTICS, 

THE COMPILE STATEMENT IS DESIGNED TO AUTOMATICALLY GENERATE 
COMPILE ANDO COMPILER LABEL EQUATION CARDS FROM THE COMPILE 
SPECIFICATIONSs ONCE GENERATED THE CONTROL DECK IS SCHEDULED 
TO BE RUN. 


THE COMPILER MAY BE EITHER "ALGOL™s"xXALGOL"s"BASIC” OR MFORTRAN « 
Te THE COMPILER: 1S NOT SPECIFIED THEN "ALGOL" IS ASSUMED. 


PROGRAM DISPOSITION MAY ‘BE "LIBRARY"s "GO" OR W SYNTAX" AN EMPTY. 
PROGRAM DISPOSITION RESULTS IN A COMPILE To THE LIBRARY, 


AN INPUT MEDIA SPECIFIER OF "CARD" OR "CARDS* ASSUMES COMPILER _ 
INPUT TO BE A DISK FILE ESTABLISHED BY MINI/TEXT» “TAPE” ASSUMES 
THE PROGRAM HAS BEEN PREVIOUSLY COMPILED WITH A NEW TAPE BEING — 
SET UP ON DISKe THE PATCH DECK MUST BE ON DISKs AS CREATED BY 
MINI/TEXTe IF THE INPUT MEDIA SPECIFIER IS EMPTY "CARD" 
18, ASSUMED « 


S ok NEW TAPE. SPECIFIER CAUSES MINE/TEXT. TO REQUEST THE. FILE NAME 
FOR A NEW TAPE AND GENERATE A LABEL EQUATION CARD TO PUT THE 
FILE ON DISKe TO GENERATE A NEW TAPE IT IS ALSO NECESSARY TO 
HAVE THE PROPER DOLLAR SIGN CARD IN THE COMPILER CARD FILE ON 
pee 


He COMPILER. PRINT FILE DISPOSITION SPECIFIES WHETHER THE __ 
PROGRAM LISTING SHOULD BE OUTPUTTED ONTO THE LINE PRINTER OR 
DISK FILE. A COMPILER PRINT FILE DISPOSITION OF "PRINTER" CAUSES 
THE LISTING TO BE DIRECTED TO THE LINE PRINTER. IF THE COMPILER 
FILE DISPOSITION IS EMPTY OR THE WORD "LIST"s THE COMPILER 
: FILE IS WRITTEN ON THE DISK, MINI/TEXT WILL INFORM THE USER 
WHAT IT HAS NAMED HIS PRINTER FILE ON DISKs PROGRAM LISTINGS © 
 QUTPUTTED TO THE DISK MAY BE TRANSMITTED TO THE REMOTE USING THE. 
"LIST STATEMENT", 


<COMPILE SPECIFICATIONS? <COMPILE “OPTION>* 


* 
* 
* 
* 
* 
* 
* 


<PROGRAM NAME> <COMPILE SPECIFICATIONS? # 


* 


¥ 
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268 


269 
270 
271 
272 
273 
274 
275 
276 
27? 
278 


279 
280 


281 
282 
283 
284 
285 


286 


287 
288 


289. 


290 
291 
292 
293 
294 
295 


296 
297 
298 


299 
300 


301, 
302 
303 


304 
305 
306 


307 
308 


309 


310 


311 
3142 


- 4313. 


314 


315 


316 
347 
318 


319. 
320 
324 
2922 


323 
324 


00180000 
00181000 
00182000 
00183000 
00184000 
00185000 
00186000 
00187000 
00188000 
00189000 


00190000. 


00191000 
00192000 
00193000 
00194000 
00195000 
00196000 
00197000 


00198000 


00199000 
00200000 


90201000 
00202000 


00203000 


00204000 | 


06205000 
00206000 


90207000. 


00208000 
00209000 


00210000 _— 


00211000 
00212000 
00213000 
00214000 
00215000 
00216000 
00217000 
00218000 
00219000 
00220000 
00221000 
00222000 
06223000 
00224000 
00225000 
00226000 


00227000 | 


00228000 
00229000 
00230000 
00231000 


00232000 
00233000 
(00234000 


00235000 
00236000 
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- SCONTROL STATEMENT. 


2 ee ee 


Uuast statement, 
— aSYNTAX,. SS ae 
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IF MINI/TEXT IS IN THE "ENTER", "RESUME" OR "CHANGE" PROGRAM MODE * 

WHEN THE COMPILE STATEMENT IS ENTEREDs THE PROGRAM 

COMPILED WILL BE THE ONE NAMED IN THE PREVIOUS SPECIFICATIONS, 
WHEN NOT IN SUCH A MODE MINI/TEXT WILL REQUEST THE FILE NAME TO 
INPUT TO THE COMPILER, 


*SYNTAX, 
* THE SYNTAX FOR <CONTROL STATEMENT> IS AS FOLLOWS! 


Santen STATEMENT> %t= * CONTROL © <CONTROL CARD OPTIONS> 
SCONTROL CARD OPTIONS> tt= RUN / EXECUTE / COMPILE / FILE 7 
PROCESS / IQ / PRIORITY / STACK /CORE 


SEMANTICS, 
THE CONTROL STATEMENT ALLOWS A REMOTE USER TO ESTABLISH 
LEGITIMATE CONTROL CARD DECKS IN a PSUEDO CARD READER. 
_ THESE DECKS ARE PROCESSED BY THE MCP USING THE NORMAL 
SELECTION. ALGORITHM, ALL CONTROL CARD OPTIONS? EXCLUDING 
“CHANGE” AND "REMOVE", ARE ALLOWED. CONTROL CARD INFORMATION 
_ MAY CONSTST OF ANY NUMBER OF LOGICAL RECORDS, A QUESTION MARK 
18 INSERTED BY MINI/TEXT INTO THE FIRST CHARACTER OF EACH LOGICAL 
 RECORDs IF - A "CHANGE" OR "REMOVE" CONTROL CARD IS ENTERED THE ~ 
oo CENTIRE DECK. WILL. BE DISCARDED AND THE REMOTE YUSER WILL BE. 
“NOTIFIED. THE DECK IS ASSUMED TO BE COMPLETED WHENEVER THE. USER 
ENTERS “END” AS THE FIRST WORD OF A CONTROL CARDe IF THE USER 
WISHES To DISCARD A CONTROL DECK BEFORE IT IS COMPLETED HE MAY 
ba ‘SO BY ve pa AS THE FIRST WORD OF A Se CARD» 


THE SYNTAX FOR” <LIST STATEMENT> I$ AS FOLLONS! 


Eo 


<LIST STATEMENT> 322 * LIST <LIST TYPE> <FILE NAME> <LIST RANGE>* 
-) SLIST. TYPE? tt= PROGRAM / DATA / ALGOL / XALGOL 7 BaSIc #7. 
ae . FORTRAN / PRINTER / PRINT / INFO / CEMPTY) ~ 
“<FILE. NAMED tis [7 CHARACTER OR LESS PREFIX} CSLASH] 
[7 CHARACTER OR LESS SUFFIX] / CEMPTY) 
<LIST RANGE> $82 <INITIAL SEQUENCE NUMBER> 
ee <FINAL SEQUENCE NUMBER> 
— SINTTTAL SEQUENCE NUMBER> t= FROM <SEQUENCE NUMBER> /_ 
oo <SEQUENCE NUMBER> / CEMPTY) 
<FINAL SEQUENCE NUMBER> t= THRU <SEQUENCE NUMBER> / 
" <SEQUENCE NUMBER> 7 CEMPTY] 
<SEQUENCE NUMBER> tt= CAN INTEGER OF 8 OR LESS DIGITS} 


SEMANTICS, 
THE LIst. STATEMENT PROVIDES THE REMOTE USER THE ABILITY To. 


LIST» ALL OR ANY PORTION» OF A PERMANENT FILEy 


DATA IS TRANSMITTED IN A FORM ASSOCIATED WITH THE LIST TYPE, 
TRREGARDLESS OF LIST TYPE» INFORMATION IS OPTIMIZED TO DECREASE _ 
TYPEWRITER USAGE. ALL BLANKS» FOLLOWING THE LAST NENTELANK 
CHARACTER» ARE DELETED. 


A LIST TYPE OF "PROGRAM" CAUSES SOURCE PROGRAM FILES» ON 
THE DISKs TO BE LISTEDs “DATA” SPECIFIES THAT A DATA FILE IS TO BE 
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00237000 
00238000 
00239000 
00240000 


29 00241000 


00242000 
00243000 
00244000 
00245000 
00246000 


00247000 


00248000 
00249000 


3 00250000 


00251000 
00252000 
00253000 
00254000 


3 00255000. 


00256000 
00257000 
00258000 
00259000 
00260000 


00261000. 


00262000 
00263000 
00264000 
00265000 


- 00266000 | 
; 00267000 
/ 00268000 


00269000 
00270000 


» 00273000 
) 00274000 
00275000 


00276000 
00277000 


4 00278000 


06279000 
00280000 


r 09281000 
00282000 


00282100 


Geos 


00284000 
00285000 


3 00286000 


00287000 
00288000 


; 00289000 


00290000 
00291000 
00292000 
00293000 
00294000 
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RENAME STATEMENT « 
oe wSYNTAX, © 


‘+ te ee ee 


oye / ee 
FING STATEMENT. 


LISTED. “ALGOL"» "XALGOL"s"BASIC”™ AND "FORTRAN" LIST TYPE REFER TO 
COMPILER PRINT FILES THAT HAVE BEEN LABELEQUATED TO OISkK, LABEL 
EQUATION INFORMATION MAY BE FURNISHED» AUTOMATICALLY» BY THE 


UPON. COMPLETION OF. LISTING COMPILER PRINT FILES THE ASSOCIATED 
DISK FILE IS AUTOMATICALLY REMOVED. "PRINTER" OR "PRINT" REFER TO 
A PRINTER FILE ON DISKs BUILT BY AN QBJECT. PROGRAM, THIS TYPE OF 
FILE IS NEVER REFORMATTED. HOWEVERe TRAILING BLANKS ARE DELETED, 
A LIST TYPE OF INFO CAUSES A FILE ENTERED AS DATA TO BE 
_.. LISTED WITHOUT SEQUENCE NUMBERS. IF A LIST TYPE IS NOT 
_ SPECIFIED "PROGRAM" 1S ASSUMEDs 


op A FILE NAME TS NOT SPECIFIED THE CURRENT FILE | NAME» AS GIVEN 
IN THE LAST ENTER» RESUME» CHANGE, LIST» COPY OR SEQUENCE 
STATEMENT IS ASSUMED, IN ADDITION» AFTER A "COMPILE" STATEMENT 

WHICH CREATED A COMPILER PRINT FILE ON DISKs A LIST STATEMENT 
WILL ASSUME THE NAME ASSIGNED BY MINI/TEXT TO THE PRINTER PXGE 
TF NO OTHER FILE NAME IS SPECIFIED. oe 


A ist RANGE SPECIFIES THAT ONLY A PORTION OF THE DESIGNATED FILE 
1s TO BE LISTED. ONE RECORD OR A COMPLETE RANGE OF RECORDS MAY 
BE SPECIFIEDe IN THE ROSE NYE OF A LIST RANGE THE oA NTARE FALE 

is, TRANSMITTED s a 


Ip THE USER WISHES TO TERMINATE A TRANSMISSION ‘BEFORE ITs. 
NORMAL COMPLETION HE MAY 00 SO BY DEPRESSING THE BREAK KEY 
ON HIS REMOTE CONSOLE. 


owe PRE “SYNTAX. FOR <RENAME STATEMENT> IS AS FOLLOWS! 
<RENAME STATEMENT> t= * RENAME <RENAME LIST> 
z SRENAME. LIST> it= <FILE NAME> TO <FILE NAME> / — 
- SRENAME LIST> » <FILE NAME> TO <FILE NAME> 
-<FILE NAME> $25 (7 CHARACTER OR LESS PREFIX] CSLASH] 
L7? CHARACTER OR LESS SUFFIX) 
*SEMANTICS, 
PERMANENT FILES» ESTABLISHED BY THE USER» ARE RENAMED» FILES NOT 
CREATED. BY THE. USER WILL NOT BE AFFECTED BY THIS STATEMENT 
—-#REMOVE. STATENENTs 
*SYNTAX, 
* THE SYNTAX FOR <REMOVE STATEMENT> IS AS FOLLOWS! 
a  €REMOVE STATEMENT> tt= » REMOVE <REMOVE LIST>. 
os -<REMOVE LIST> t2= <FILE NAME> / <REMOVE LIST> » «FILE. NAME> 
7 - eFILE. NAME> $25 (7 CHARACTER OR LESS PREFIX] CESLASH). 
* (7 CHARACTER GR LESS SUFFIX] 
*SEMANTICS, 
* FILES, ESTABLISHED BY THE USER» ARE REMOVED FROM THE QI Sk oe Sone! 
*# LY BRARYs IF THE FILE was NOT CREATED BY THE USER: THIS. 
oe | STATEMENT 18 DISCARDED. . 


«SYNTAX 


"COMPILE" STATEMENT QR DONE MANUALLY USING THE CONTROL STATEMENT, | 
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382 
383 


384 
38s 


386 
387 
388 
389 
390 


391 


392 
393 


394 
395 


396 
397 


398 
399 
400. 


401 
402 
403 


404 
405 
406 


407 
408 
409 


410 
442 


413 
414 
415 
416 
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418 
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429 


424 
422 


423 


424 


425 
426 
427 


428 
499 


430 
431 
432 


433 
434 
435 
436 
437 


438 


00295000 
00296000 
00297000 
00298000 
00299000 
00300000 


00301000. 


00302000 
00302100 


90302200 


00303000 
00304000 
00304100 


00304200 


00304300 
00304400 
00304500 
00304600 


00304700. 


00305000 
00306000 


00307000 
00308000 
00309000 — 
00310000 - 


00311000 
00312000 


00313000 


00314000 


00315000 
00316000 


00317000 
00318000 
00319000 


00320000 


00321000 
00322000 
00323000 
00324000 
00325000 
00326000 
00327000 


00328000 


00329000 
00330000 


00334000. 
00332000. 


00333000 


00334000 


00335000 
00336000 


(00337000 _ 
00338000 
00339000 

00340000 
00340010 


00340020 
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SEMANTICS. 


THE USER DESIRES TO TERMINATE A FIND STATEMENT BEFORE ITS” 


FIRST OR ALL OCCURANCES OF THE SPECIFIED <STRING> ARE TO BE 


® @©0e@e0e0e088808808808080808080 @ 


oa THE <IDENTIFIER> TYPE OF <STRING> IS ESSENTIALLY THE SAME. as 


aw <INTEGER> IS 4. SEQUENCE OF uP To 12 DIGITS SucH AS; 


ee ee ce 
ce pee! es A oe oe : : 


THE SYNTAX FOR <FIND STATEMENT> YS AS FOLLOWS: 


<FIND STATEMENT> ste «* FIND <FIRST OPTION> <STRING> 
IN <FILE NAME> <FIND RANGED 
<FIRST QPTION> t%= FIRST / ALL / CEMPTY] | 
<STRING> #25 <IDENTIFIER> / <INTEGER> / 
ae <QUOTED STRING> / <OCTAL STRING> 
 <IDENTIFIER> 823 <LETTER> / <IDENTIFIER> <LETTER> / 
<IDENTIFIER> <DIGIT> 

<LETTER> 825 A/B/C/D/ESE/G/H/I/ I/K/L/M/N/O/P/O/RAS/T/USV/W/XSY/Z 

<DIGIT> #33 O/1/2/3/4/5/6/7/8/9 | 

S<INTEGER> 335 <DIGIT> / <INTEGER> <PIGIT> 

<QUOTED STRING> $25 <pELIMITER> CLEQ@ 34 CHARACTERS) <DELIMITER> 

<DELIMITER> Sis " / # 

<OCTAL STRING> t= 3” <OCTAL NUMBER> " 
 <OCTAL NUMBER> 8&5 <OCTAL DIGIT> / <OCTAL NUMBER> <OCTAL DIGIT> 
— €OCTAL DIGIT> &83 0/4/2/3/4/5/6/7 

<FILE NAME> $= €7 CHARACTER OR LESS PREFIX} [SLASH] 

aS : (7 CHARACTER OR LESS SUFFIX) / CEMPTY) 

<FIND RANGE> $= <INITIAL SEQUENCE NUMBER> 

<FINAL SEQUENCE NUMBER> 

<INITIAL SEQUENCE NUMBER> %t= <NUMBER> / FROM <NUMBER> / CEMPTY]* 
- -<FINAL SEQUENCE NUMBER> $82 = <NUMBER> / THRU <NUMBER> / CEMPTY)* 
| BEN? ite CAN INTEGER OF 8 OR LESS DIGITS) — 


THE FIND STATEMENT GIVES THE USER THE CAPABILITY TO SEARCH A 
PROGRAM FILE FOR OCCURANCES OF A SPECIFIED IDENTIFIERs INTEGER 
— OR SEQUENCE OF CHARACTERS. THE SEQUENCE NUMBER OF EACH RECORD - 
THAT INCLUDES THE QUANTITY IS TYPED ON THE USERS CONSOLE. IF. 


NORMAL COMPLETION HE May DO SO BY DEPRESSING THE BREAK KEY 
ON HIS CONSOLE, 


“THE <FIRST OPTION> ALLOWS THE USER TO INDICATE THAT EITHER THE 
SERACHED FOR» IF THE OPTION IS EMPTY THEN "ALL" IS ASSUMED. 


SEVERAL METHODS FOR SPECIFYING THE <STRING> ARE PROVIDED, THEY 
ARE ERG dos SEPERATELY BELOWs EXAMPLES oF EACH TYPE hee GIVENe 


AN ALGOL IDENTIFIER WITH THE RESTRICTION THAT ITS MAXIMUM 
“LENGTH IS 13 CHARACTERS. 


EXAMPLES! 
INTEGER = L401 PROCEDURE = GMAXQQQ, 


123456789012, 


C. A <QUOTED STRING> IS A SEQUENCE OF UP TO 31 CHARACTERS 
ENCLOSED BY <DELIMITER>S. THE SAME <DELIMITER> MUST BE USED 
“AT THE BEGINNING AND END OF THE QUOTED STRINGe THE FIRST 

CHARACTER OF A QUOTED STRING MUST NOT BE A BLANK oe 
CHARACTER» 
EXAMPLES 

"NOTLISTINGORCOPYSEQING" nye # 4H 
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00340030 
06340040 
00340050 
00340060 
00340070 


06340080 


00340090 
00340100 
00340110 
06340120 


» 003460430 


00340140 
00340130 


» 00340155 
00340160 


00340170 
00340380 
00340190 


(00340200 


00340210 
00340220 
00340230 
00340240 


2 00340250 
3 00340260 


00340270 
00340280 
00340290 


467 00340300 
$8 00340310 
00340320 

70 00340330 


00340340 
00340350 
00340360 
00340370 
00340380 
00340390 
00340400 


8 00340410 _ 


00340420 


80 00340430 
00340440 
» 00340450 


00340460 
00340470 


3 00340480. 
00340490 


00340500 
00340510 
00340520 
00340530 


00340540 
00340550 


00340560 
00340570 
00340580 
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ye AC COMODATE THE NEW STRING IF ITS LENGTH IS DIFFERENT FROM THAT 


#Q="140000"# "STARTISSTART+1,57" 


D,. AN <OCTAL STRING> IS A SEQUENCE OF AN EVEN NUMBER OF OCTAL 
DIGITS ENCLOSED BY QUOTES WITH A DIGIT 3 DIRECTLY PRECEDING 
THE INITIAL QUOTE, THE NUMBER OF OCTAL DIGITS MUST BE 62 OR 
LESS, THE PURPOSE OF THE <OCTAL STRING> TYPE OF <STRING> IS To 
ALLOW THE USER TO SPECIFY CHARACTERS SUCH AS ts» «<p 2 ETC, 
WHIEH CANNOT BE DIRECTLY ENTERED FROM THE CONSOLEs 
EXAMPLES? 

337" | 
anya 
331604 3466525606 35431233121", 


THE <FILE NAME> SPECIFIES THE PROGRAM FILE IN WHICH TO PERFORM 
THE SEARCHe IF A FILE NAME IS NOT SPECIFIED THEN THE CURRENT 
_ FILE NAME AS GIVEN IN THE LAST STATEMENT WHICH. SPECIFIED A FALE. 
- WILL ‘BE. ASSUMED, 


THE. <FIND RANGE> ALLOWS THE USER TO SPECIFY THE PORTION | OF 
THE FILE THAT IS TO BE SEARCHEDe IF NO RANGE IS INDICATED THEN 
ALL RECORDS IN THE FILE WILL BE SEARCHED, 


* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

ee ce STATEMENT» ie Se ae * 
* SYNTAX : ee ee oe 
os THE. “SYNTAX. FOR “eREPLACE STATEMENT> 1S AS FOLLOWS! a * 
* 

<REPLACE STATEMENT? 2:5 * 

_® REPLACE «FIRST OPTION> <STRING> BY a * 

: IN <FILE NAME> <REPLACE RANGED — * 
FIRST OPTION> | $= FIRST / ALL / CEMPTY) ” 
 SSTRING> 24% <IDENTIFIER? / <INTEGER> / | * 
<QUOTED STRING> / <OCTAL STRING> * 

<IDENTIFIER> $35 <LETTER> / <IDENTIFIER> <LETTER> / * 
<IDENTIFIER> <pIGIT> * 

¥ 

ee 

* 

* 

* 

ot 

* 

* 

* 

* 

* 

* 


DIGIT > $92 0/14/2/3/4/5/6/7/8/9 
- <INTEGER> tis <DIGIT> / <INTEGER> <DIGIT> 
<QUOTED STRINGS t= <pELIMITER> CLEQ 31 CHARACTERS) <DELINITER> 
<DELIMITER> S33 " / # 
_<OCTAL STRING> $3= 3" <OCTAL NUMBER> " 


 OCTAL DIGIT> 887 0/1/2/3/4/5/6/7 
FILE NAME> t2= £7 CHARACTER OR LESS PREFIX) CSLASH) ao 
[7 CHARACTER OR LESS SUFFIX] / CEMPTY) 
<REPLACE RANGE> 323 LINE <NUMBER> / 
INITIAL SEQUENCE NUMBER> <FINAL SEQUENCE NUMBER> / [EMPTY] 


FINA 


SEMANTICS, 

_ THE REPLACE STATEMENT GIVES THE USER THE CAPABILITY OF REPLACING 
— OCCURANCES OF A SPECIFIED IDENTIFIER» INTEGER OR SEQUENCE OF 

\ ERS IN A PROGRAM FILE WITH ANOTHER STRINGs THE CHARACTERS. 
IN A RECORD IN WHICH REPLACEMENTS OCCUR ARE ADJUSTED TO. 


* OF THE ORIGINAL STRING. IF» DUE TO AN ADJUSTMENT» CHARACTERS | 


 <LETTER>. pip ALELCLOSEAR/ O/ HIT? J/K/L/NANZOZE/O/RYS/T/UZV AWK /Y 108 
 -SOCTAL NUMBER> 35 <OCTAL DIGIT> /. <OCTAL NUMBER> <OCTAL ‘Dleiys * 


INITIAL SEQUENCE NUMBER? %1= <NUMBER> / FROM <NUMBER> / LEMPTY3+* 
oe SEQUENCE NUMBER> t= = <NUMBER> / THRU. SNUMBERS 7 CEMPTVIS 
SNUMBER? $f CAN INTEGER OF 8 OR LESS DIGITS) 


* cease * 


896 


497 
498 


Bre eid 


500 
504 


302 


503 
504 


305. 


306 


807 
$08 
509 


510 


Sit 
$12 


5143 


514. 


515 
516 
317 


- 818 
819 
520 


524 
522 
523 


824 
525. 
526 


527 
528 
529 


530 
334 
+532 


533 
534 


335 
536 


537 


538° 


539 
540 


S44 
S42 
543 


544 
545 


S46 


547 


“$48 
$49 
550 

551 


552 


00340590 
00340600 
08340610 
00340620 
00340630 
00340640 


08340650 — 


00340660 
00340670 
00340680 
00340690 
00340700 
00340740 
00340720 
00340730 
00340740 
00340750 
00340760 
00340770 
00340780 
00340790 


00340800 


00340810 


00340820 
00340830 
00340840 


00340850 
00340860 


00340870. 
00340880. 


00340890 
00340900 
00340910 


00340920 


00340930 
00340940 
00340950 
00340960 
00340965 
00340970 
00340980 
00340990 


00341000. 


00341010 
00341020 


00341030 


00341040 


00341050 
00341060 | 


00341070 
00341080 
00341090 


00341100 


00341110 
00341120 


00341130 | 


00341140 
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“ (eeouence STATEMENT, 
— #@SYNTAX, 
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4COPY STATEMENT. 


WOULD BE LOST THE REPLACE STATEMENT IS TERMINATED AND AN 
ERROR MESSAGE INCLUDING THE SEQUENCE NUMBER OF THE RECORD 
WHICH WOULD OVERFLOW IS EMITTED, 


THE <FIRST OPTION> ALLOWS THE USER TO INDICATE THAT EITHER 
- THE FIRST OR ALL QCCURANCES OF THE SPECIFIED STRING ARE TO BE 
REPLACED. IF THE OPTION IS LEFT EMPTY THEN "ALL" IS ASSUMEDe — 


SEVERAL METHODS OF SPECIFYING THE STRINGS ARE PROVIDED. 
THEY ARE DESCRIBED AND EXAMPLES OF EACH TYPE ARE GIVEN IN THE 
DESCRIPTION QF THE FIND STATEMENT, 


THE <FILE NAME> SPECIFIES THE PROGRAM FILE IN WHICH TO PERFORM 
THE REPLACEMENTS, IF A FILE NAME IS NOT SPECIFIED THEN THE 
CURRENT FILE NAME AS GIVEN IN THE LAST STATEMENT WHICH SPECIFIED 
AFILE NAME IS ASSUMED, 


THE: “<REPLACE RANGE> ALLOWS THE USER TO SPECIFY THE PORTION. 
OF THE FILE IN WHICH REPLACEMENT IS TO OCCUR. IF A "LINE" 
NUMBER IS SPECIFIED ONLY THAT RECORD WILL BE AFFECTEDe IF NO 
<REPLACE RANGE> IS INDICATED REPLACEMENT MAY OCCUR IN ALL 
RECORDS OF. THE FILEs 


* THE. SYNTAX FOR <SEQUENCE STATEMENT? IS AS FOLLOWS: 


= $ SEQUENCE. STATEMENT> tis * <SEQUENCE VERB> <PROGRAM SPECIFIER> 
| oe | <FILE NAME> <SEQUENCE RANGE> | 


oe : <SEQUENCE SPECIFICATIONS> ae 
“@SEQUENCE VERB> tt= SEQUENCE / RESEQ 
<PROGRAM SPECIFIER> st= PROGRAM / CEMPTY? 
<FILE NAME> t= £7 CHARACTER OR LESS PREFIx} CSLASHI 
: as . [7 CHARACTER OR LESS SUFFIX] ¢ CEMPTY) 
 SSEQUENCE RANGE > tts <INITIAL SEQUENCE NUMBER> 
: -€FINAL SEQUENCE NUMBER? 
~ <INITIAL SEQUENCE NUMBER> 243 FROM <SEQUENCE NUMBER> ay 
<SEQUENCE NUMBER> / (EMPTY) 
<FINAL SEQUENCE NUMBER> %%= THRU <SEQUENCE NUMBERD> / 
a = <SEQUENCE NUMBER> / CEMPTY] 
<SEQUENCE NUMBER> tis LAN INTEGER OF 8 OR LESS DIGITS) | 
SSE QUENCE SPECIFICATIONS? $32 <BASE SPECIFIER> <STEP SPECIFIER> 
BASE SPECIFIER> st= BASE <NUMBER> / <NUMBER> / CEMPTY) 
<STEP SPECIFIER> t= STEP <NUMBER> / * <NUMBER> / CEMPTY) | 
<NUMBER> %3= CAN INTEGER OF 8 OR LESS DIGITS) 
*SEMANTICS, 
THE. SEQUENCE STATEMENT ALLOWS THE USER TO -RESEQUENCE SOURCE 


RANGE OF SEQUENCE NUMBERS CAS THEY APPEAR IN THE ORIGINAL FILED 

WILL BE RESEQUENCEDe SEQUENCE SPECIFICATIONS GIVE THE BASE NUMBER 

AND INGREMENT VALUE TO BE USED IN RESEQUENCING THE FILE. IF A 

BASE NUMBER IS NOT SPECIFIED ZERO IS ASSUMED, TF AN. THERERENT © 
ao VALUE IS NOT GIVEN A VALUE OF 10 18 ‘USED. 


«SYNTAX, 


PROGRAM FILESe IF A SEQUENCE RANGE IS PRESENT ONLY THE. SPECIFIED 
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00341150 
00341160 
00341170 
00341180 


00341190 
00341200 


00341210 
00341220 
006341230 
00341240 


00341250 


00341260 


00341270 


00341260 
00341290 
00341300 
00341310 


00341320 © 


00341330 
00341340 
00341350 
5 00341360 
00341370 


00341380 
? 00342000 


00343000 
00344000 
00345000 
00346000 
00347000 
00347100 


00348000 
3 00349000 


00350000 


» 00351000 
| 00352000 


00353000 
00354000 
00355000 
00355100 


3 00355200 


00356000 


5 00357000 
00357100 


00358000 


3 00359000 


00360000 
00361000 


01. 00362000 
00363000 


00364000 
00365000 


5 0036600000 
» 00367000 


00368000 


} 00369000 


00370000 


Pe ee ge et 92 pe ee pe Oe Be He He es ee Ee PO ee gee et 8 et Re ee ee ee ee RO ee foe fe fe RR pak ek Ee Qe > > 2 pe 2 pe 


eeeeeeveeeeeeeee we eo oe ® e@ 6 


+ et +e tH He xe fe ee ee ee er ee 


THE SYNTAX FOR <COPY STATEMENT> IS AS FOLLOWS: 


<COPY STATEMENT> 33 * COPY <PROGRAM SPECIFIER> <SOURCE FILE> 
<COPY RANGE> TO <ADD ON SPECIFIER> 


ne <DESTINATION FILE> <SEQUENCE SPECIFICATIONS>« 
<PROGRAM SPECIFIER> #22 PROGRAM / [EMPTY] 


<SOURCE FILE> 832 <FILE NAME> / ELEMPTY} 
<DESTINATION FILE> 332 <FILE NAME> 
<FILE NAME> %3= €7 CHARACTER OR LESS PREFIX} E£SLASH] 
PER P One he tte £7 CHARACTER OR LESS SUFFIX] 
scOey RANGE> $35 <INITIAL SEQUENCE NUMBER> 
- <FINAL SEQUENCE NUMBER> 
<INITIAL. SEQUENCE. NUMBER? 8 FROM <SEQUENCE NUMBER> / 
<SEQUENCE NUMBER> / CEMPTY) 
<FINAL SEQUENCE NUMBER> &8s THRU <SEQUENCE NUMBER> / 
=" <SEQUENCE NUMBER> / CEMPTY) 


- <SEQUENCE NUMBER> t= [AN INTEGER OF 8 OR LESS” DIGITS) 


“€ADD ON SPECIFIER> $= END / CEMPTY] 

<SEQUENCE SPECIFICATIONS> t22 <paSE. SPECIFIER> <STEP SPECIFIER> 
<BASE SPECIFIER> t:= BASE <NUMBER> / <NUMBER> / [EMPTY] 

<STEP SPECIFIER> st: STEP <NUMBER> / + <NUMBER> / CEMPTY] 


eo MEER tis [AN INTEGER OF 8 OR LESS DIGITS] | 


SEMANTICS « 


THE CORY. STATEMENT ALLOWS THE. REMOTE USER TO DUPLICATE SOURCE | 
PROGRAM FILES+ IF A COPY RANGE IS PRESENT ONLY THE SPECIFIED 
RANGE OF CARD IMAGES (AS SPECIFIED BY THE SEQUENCE NUMBERS IN THE 


_ ORIGINAL FILE) WILL BE COPIED TO THE NEW FILE. IF AN ADD ON 
- SPECIFIER IS PRESENT IT. INDICATES THAT THE FOLLOWING FILE NAME 
I$ AN EXISTING FILE AND THE CARD IMAGES FROM THE ORIGINAL FILE 
ARE To BE ADDED ON TO THE END OF IT, IF A SEQUENCE SPECIFICATION 


Is PRESENT THE NEW FILE WILL BE RESEQUENCED AS IT IS GENERATED 
IF A SEQUENCE SPECIFICATION IS NOT USED THE SEQUENCE NUMBERS OF 


THE NEW FILE WILL BE THE SAME AS IN THE ORIGINAL FILEs. 7 


*SEQUENCE. SPECIFICATION STATEMENT 


— *SYNTAX, 
* THE SYNTAX FOR <SEQUENCE SPECIFICATION STATEMENT> IS AS FOLLOWS? 
* 
ns . oo SPECIFICATION STATEMENT> $85 a 
ee ae * SEQ <SEQUENCE PARAMETERS> / | 
ee ee ee * SEQ <SEQUENCE PARAMETERS> % <TEXT LINES 
owe - gSEQUENCE PARAMETERS> th= <BASE SPECIFIER> <STEP SPECIFIER> — 
* <BASE SPECIFIER> st= BASE <NUMBER> / <NUMBER> / CEMPTY] 
* <STEP SPECIFIER> $= STEP <NUMBER> / + <NUMBER> / CEMPTY) 
oe _ SNUMBER> $85 [AN INTEGER OF & OR LESS DIGITS) ‘i 
ae ey LENE? tt= CA LINE OF TEXT CONSISTING OF 80 OR LESS cee 
ie 2 Seas CHARACTERS) 
oe : 
Seoice. 
* THE SEQUENCE SPECIFICATION STATEMENT ENABLES A REMOTE USER TO 
_* SPECIFY THE BASE NUMBER AND INCREMENT VALUE 
oe USED TI -CALCULATING THE SEQUENCE NUMBERS ASSIGNED TO PROGRAM 
# - STATEMENTSs IF A SEQUENCE SPECIFICATION STATEMENT IS NOT USED 
SEQUENCE NUMBERS BEGINNING WITH ZERO AND STEPPING IN | . 
* INCREMENTS OF TEN ARE ASSUMED. ONCE THE SEQUENCE SPECIFICATIONS 
* ARE SET THEY WILL BE USED FOR THE REMAINDER OF A SESSION OR 


or eee 
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610 
6t1 
612 


$13 


614 
615 


ONG. 


617 
618 
619 
620 


621 


622 
623 
624 
625 


626 
—6a7 
628 


629 
630 


634 


632 
633 
634 
635 
636 
637 


638. 
639 


640 
641 
642 
643 
644 


645 


646 
647 
648 
649 


650 


651 


652 
653 


654 


655 


656 
657 


- 658 


659 
660 
661 


Aes 
663 
664 


665 
666 


00371000 
00372000 
00373000 
00374000 
060375000 
00376000 
00376100 
00376200 
00377000 
00378000 
00379000 
00380000 
00381000 
00382000 
00382100 
00382200 


00383000 


00384000 


00385000 


00386000 
00386100 
00387000 


00388000. 
00389000 
00390000 
00391000 


00392000 


00393000 
00394000 
00395000. 


00396000 
00397000 
00398000 
00399000 
00400000 


00401000 


00402000 
00403000 
00404000 
00405000 
00405100 
00406000 


00407000 


00409000 
00410000 
00413000 
00413100 
00413200 


06414000 


00415000 
00416000 
00417000 


00418000 


00419000 


00420000 


00421000 
00422000 


®eevsvvsesese5ueeeee#keee#en#nx0aneneeneea 
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oe eR Oe 
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SOUNT AMS 


— SDISPLACEMENT> 323 
ee RINE? $42 ch LINE OF TEXT CONSISTING OF 80 OR Less 


SEMANTICS. 
THE TAB STATEMENT ALLOWS THE USER TO AUTOMATICALLY PRE*PQSITION 
THE PRINT HEAD AT ANY COLUMNe THE TAB STATEMENT HAS AN EFFECT ONLY* 
A TAB ADJUSTMENT MAY BE USED TO 
IF THE <COLUMN NUMBER> 


NO THE ENTER" OR "RESUME" MODE. 
- INCREASE OR DECREASE THE <COLUMN NUMBER>, 
IS SET OR ADJUSTED TO A VALUE GREATER THAN 32 OR LESS THAN 14 IT : 
WILL BE SET TO te A TEXT LINE MAY BE ENTERED IN A TAS STATEMENT By# 

TYPING A COLON FOLLOWED BY THE TEXT LINE AFTER THE TAB PARAMETERS,®* 


UNTIL CHANGED BY ANOTHER SEQUENCE SPECIFICATION STATEMENT, 


A TEXT LINE MAY BE ENTERED IN A SEQUENCE SPECIFICATION 
STATEMENT BY TYPING A COLON FOLLOWED BY THE TEXT LINE 
O AFTER: THE ‘SEQUENCE PARAMETERS, 
tne STATEMENT« 
#SYNTAX, 
” THE SYNTAX FOR <TAB STATEMENT> IS AS FOLLOWS? 


STAB STATEMENT> tis * TAB <TAB PARAMETERS> /. 
me * TAB <TAB PARAMETERS> 38 <TEXT LINE> 
<TAB. PARAMETERS? tts <COLUMN NUMBER> / <TAB ADJUSTMENT> 
“<COLUMN NUMBER> t8= [CAN INTEGER FROM 1 TO 32) . 


<TAB ADJUSTMENT> Ma + <DISPLACEMENT> 4 * <DISPLACEMENT> 
CAN INTEGER LESS THAN 32) 


~ CHARACTERS] 


+ASTERTSk OPTION CONTROL STATEMENT, he 
“Ge SYNTAX FOR “<ASTERISK OPTION CONTROL “STATEMENT? 1S AS. FOLLOWS! 


<ASTERISK OPTION CONTROL STATEMENT> S35 « # / 


* * 3 <TEXT LINES 


STENT. LINE? tt= CA LINE OF TEXT CONSISTING OF 80 OR LESS” 
CHARACTERS] | 


“SEMANTICS, 
THE ASTERISK OPTION CONTROL STATEMENT PROVIDES THE MEANS FOR 
_.., SETTING OR RESETTING A PROGRAM OPTION WHICH DETERMINES IF A 
LEADING ASTERISK IS REQUIRED TO INDICATE A MINI/TEXT COMMAND > ae 


 waew SET» ALL COMMANDS =MUST= CONTAIN A LEADING ASTERISK, 
WHEN RESET» THE LEADING ASTERISK IS OPTIONAL, 


EACH TIME AN ASTERISK OPTION CONTROL STATEMENT IS ENTERED _ 
THE SETTING OF THE OPTION IS” CHANGED EROM ITs CURRENT To 11s 


 OPPOSYTE STATE, 


A TEXT LINE MAY BE ENTERED IN AN ASTERISK OPTION CONTROL 
STATEMENT BY TYPING A COLON FOLLOWED BY THE TEXT ae eae eee ee 
_ APTER THE CONTROL STATEMENT. 


WHEN A USER INITIATES THE MINI/TEXT PROGRAM THE ASTERISK 
OPTION IS RESET, 


££ bee F FOR EE EO ee Oe ee 


* 
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fal 


00423000 


00423100 
00423200 
00423300 
00423400 
00424000 
00424100 
00424200 
00424300 
00424400 
00424500 
00424600 
00424700 


00424800 


00424900 
00425000 
00425100 
00425200 
00425300 


00425400 


00425500 
00425600 
00425700 
00425800 
00425900 


00426000 


00426100 
00426110 


; 00426120 
00426130 


00426140 


B 00426150 


00426160 
00426162 


00426164 


00426166 
00426170 
00426180 
00426190 


5 90426200 
00426210 


00426220 


9 00426230 


00426240 
00426250 
00426260 


300426270 


00426280 


15 00426290 


00426300 
00426302 
00426304 


9 00426306 


08426308 
00426310 


» 00426320 


00427000 
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*CHARGE CODE STATEMENT, 


«SYNTAX, 
* THE SYNTAX FOR <CHARGE CODE STATEMENT> IS AS FOLLOWS? 
* 
* <CHARGE CODE STATEMENT> 32 * CHARGE <CHARGE NUMBERD> <COMMENT> ~ 
* <CHARGE NUMBER> tt= [A VALIO 9 DIGIT JOB ORDER NUMBER} 
* -.SCOMMENT> 28 CANY 145 CHARACTERS NOT INCLUDING *," OR tary 
* 
*SEMANTICS. 
an THE CHARGE CODE STATEMENT ALLOWS THE USER TO SPECIFY OR CHANGE 
+ THE JOB ORDER NUMBER USED BY MINI/TEXTe THE CHARGE NUMBER ~ 
he SPECIFIED IS USED IN ALL COMPILE STATEMENTS AND IS RECORDED IN 
a THE LOG WHEN THE USER ENTERS A QUIT STATEMENTe A CHARGE CODE 
* STATEMENT IS AUTOMATICALLY EXECUTED WHEN A USER RUNS MINI/TEXT. 
* WHEN THE CHARGE CODE STATEMENT IS EXECUTED THE USER IS GIVEN 
ae THREE OPPORTUNITIES TO ENTER A VALID CHARGE NUMBERe IF NO VALID 
7 NUMBER IS RECEIVED MINI/TEXT WILL PROCESS A QUIT STATEMENT FOR ~ 
* JHE USER, A 15 CHARACTER COMMENT INCLUDING THE USERS NAME AND. 
+ PHONE EXTENSION SHOULD RE ENTERED AFTER THE CHARGE NUMBERe 
* 
*LOCK STATEMENT, 
SYNTAX, 
- THE: SYNTAX. FOR <LOCK STATEMENT> IS_ AS FOLLOWS: 
Lock: STATENENT> tbece <LOCk VERB> <SAVE TIME> 
<LOCK VERB> $3 LOCK / SAVE / CLOSE 
<SAVE TIME> %i= CAN INTEGER EQUAL TO 90 OR LESS] / LCEMPTY] 
SEMANTICS, 
THE Lock STATEMENT. CLOSES. THE OPEN FILE AND. RECORDS THE 
CURRENT FILE STATUS IN THE DISK DIRECTORY. THE <SAVE TIMe> 
ALLOWS THE USER TC SPECIFY THE NUMBER OF DAYS THE FILE IS 
TO BE HELD ON DISK AFTER THE DATE OF ITS LAST ACCESS. 
IF NO SAVE TIME IS SPECIFIED THEN A DEFAULT 
- VALUE OF 30 DAYS IS ASSUMED. THE LOCK STATEMENT WILL CAUSE. 
 MINI/TEXT TO GO OUT OF THE ENTER» RESUME OR CHANGE MODE, 
AFTER ENTERING THE LOCK STATEMENT THE USER MAY SPECIFY A NEW 
FILE NAME IN SUCCEEDING COMMANDS OR CONTINUE TO USE THE CURRENT 
NAME BY LEAVING THE <FILE NAME> EMPTY, 
QUIT. STATEMENT. 
| SSYNTARS : 
ce THE. SYNTAX. FOR <QuIt “STATEMENT? IS AS FOLLOWS! 
* 
* <QUIT STATENENT> tis * QUIT / * BYE 
| aSewantres, ee 
+ THE. quit STATEMENT CAUSES. MINE/TEXT TO GO TO END OF JOB, ‘ 
# ANY FILES THAT WERE IN THE PROCESS OF BEING CONSTRUCTED 
* ARE MADE PERMANENT. 


"3 


ee WRITTEN BY 


; BROWN A ca 
eS NAVY. MINE: DEFENSE LABORATORY. 
ye PANAMA. CITY: FLORIDA, 
* MARCH 1969" 
«3 
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725 
726 
727 


728 


729 
730 
731 
732 
733 


734 
735 
736 


737 
738 
739 


740. 
7a. 
742 


743 
744 


745 
746 
--7ar 
748 


749 
750 


tok 
182 
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755 
756 


737. 
758 
189 
760 


764 
762 


_ 763. 
et ay! 
765 
766 


767 


768 


. 169 
770 


774 


772 
773 


774 
775 
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ne 
779 


780 


00427025 
00427050 
00427075 
00427400 
00427125 
00427150 
00427175 
00427200 


00427225 


00427250 


00427275 
00427300 


00427325 
00427350 
00427375 
00427400 
00427425 


00427450 
00427475 


00427500 
00428000 
00429000 
00430000 


00431000 
00432000 


00432050 
00432100 


00433000 
08434000 
00435000 
00436000 — 


00437000 
00438000 


00439000 
00440000 
00440100 
00440200 
00440300 
00440400 
00441000 


00442000 


00443000 
00444000 
00445000 
00446000 


00447000 
00448000 


00449000 
00450000 
00451000 
00452000 
00453000 


cee eke 
00455000 
00456000 
00457000 


00458000 
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*BEGIN 
*COMMENT THIS IS A MULTI®USER TEXT EDITING PROGRAM FOR THE BURROUGHS 
* B-5500, IT IS WRITTEN WITH THE SAME PHILOSOPHY AS USED IN 
* ; MINI/TEXT AND IS CALLED MANY/TEXT. DAVE BROWN, 12/17/68; 
«COMMENTS 
* TO ADD ADDITIONAL USERS To MANY/TEXT 3 CHANGES ARE REQUIRED. 
* C1) AT 464000 AND 464200 THE MAXIMUM AND MAXIMUN@ 14 NUMBER 
* OF USERS MUST BE INDICATED, 
* (2) AT 759000=761000 USER FILES MUST BE INITIALIZED. 
re €3) AT 889000 AND 890000 THE REQUIRED NUMBER OF FILES 
oe MUST BE DECLARED AND ADDED TO THE SWITCH FILEss 
*DEFINE MIXMAX = %& MAXIMUM NUMBER OF USERS ALLOWED 
PRT(22) = - #LIst LABEL» OR SEGMENT DESCRIPTOR«* 
PRT(23) = *OUTER BLOCK DESCRIPTOR* 
PRT¢24) = *SEGMENT DESCRIPTOR* 


SOL ae ate 
Jk Ls . MIXMLS: x “MAXIMUM NUMBER OF USERS LESS 1 
4-4, * 3B» 
1 #1 * BUFW = % WORD SIZE NEEDED FOR LARGEST TERMINAL BUFFER 
ae * 8# 
a ee tee BUFC = % "CHARACTER SIZE OF LARGEST earns 
CO 
AO a *COMMENT “GLOBEL. DECLARATIONS FOR MANY/TEXTS 
2 {1 INTEGER NUSERSs % TWICE NUMBER OF USERS IN MIX 
PRTC 25) = NUSERS 
1 4 * USER» % LAST USER SERVICED 
PRT(26) = USER ea 7 
oe - OLYSs - z DELAY IN READ TO KEEP FROM BURNING UP PROCESSOR 
—PRTC230) = OLY 
A we oO NFUL . NUMBER OF FULL INPUT BUFFERS WAITING TO. BE SERVICED 
ATOMS FUL 
ae *INTEGER RESULT»STARTS % USED BY SCANNERs START IS NUMBEROF CHARACTERS 
PRT(232) = RESULT | 
PRY A535 SUSTARE: ee: i | 
| pot. OT SCOMNENT : THAT HAVE. BEEN SCANNED. MEANING OF RESULT Is GIVE BELOW 
ya os RESULT) «= MEANING 
oa 0 UNDEFINED 
1 1 * 1 NUMBER CINTEGER FOUND) 
Pe oar Me gis « NAME FOUND 
AA + — SPECIAL CHARACTER FOUND a 
ae Ge 2D ENCOUNTERED a oo) 
oe DEATH, & INDICATES AN ERROR HAS BEEN MADE | ee 
PRT(234) = DEATH 
1 4 * USEFUL»% TRUE WHILE AT LEAST ONE USER IS PRESENT 
_-PRTC238) 8 USEFUL. ee Soko 
oe  FILESOK 
PRT(236) = FILESOK ee | | 
Oe a a sorsoue. ¥ GETSOME GOTSONE INPUT 
PRT(237) = GOTSOME 
1 4: * THRUTYPINGs % TRUE WHEN THERE IS NO TYPING TO BE DONE 
_.PRT¢240) = THRU TEING cog oes 
a CL STARE “® TRUE IF USER ‘TYPED LEADING * AND HAVE. ‘NOT SEEN aM 
PRTC241) = STAR - 
ea ee “ALPHA 0.013 % PLACE SCANNER PUTS WHAT IT GETS CANSW) 
PRT(242) = Q 
PRT(243) = Q1 
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00459000 
00460000 
00461000 
00462000 
00462100 
00462200 
00462300 
00462400 
00462500 
00462600 
00462700 
00463000 
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794 
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796 
797 
798 
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#804 
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807 
808 
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00464000 
00464100 
00464200 
00465000 
00466000 
00467000 
00468000 
00469000 
00470000 


00471000 
00472000 
00473000 


00474000 


00475000 


00476000 
00477000 
00478000 


00479000 
00480000 


00481000. 
00482000 


00483000 


00484000 


00485000 
00486000 


00487000 


00488000 | 
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PRT(247) 
1 
PRTC250) 


Ree 
—PRTC244) 
PRT¢245) | 


n 


4 
Pos 


a8 
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INFO 


_— 
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«DEFINE. 

1 CHECKTIME= 3008» 4 APROX. TIME BETWEEN STATUS CHECKS ¢SEC) 
* DLYSOLYSef33%15]4#, % HOLDS DELAY FOR READS & TIMEOUT TIME 

* OLYTFDLYSe({4523]#se &% DELAY TIME FOR READ 

* NSECSDLYSe(18215]#,/%APROX TIME SINCE LAST STATUS CHECK 

*  _ILTME=T1#s % ELAPSED IDLE TIME FOR PROGRAM (5) 

* —PRIMESTa.C 1823)%, % ELAPSED PROCESSOR TIME FOR PROGRAM (2) 
* TOTMEST2e€C24224)#,.% ELAPSED 1/0 TIME FOR PROGRAM €3) 
* - STOR=10#3 % NUMBER OF WORDS PER ROW IN INFO. 

wARRAY INFOLOSMEXM120°9T4 % 019 IS OSTOR4 


*REAL ae % USED TO HOLD INFOCUSERs0) 
“-eCOMMENT INFO CONTAINS INFORMATION. ABOUT USERS. THE FOLLOWING DEFINES 


* 


“*ODEF INE 


* 


ee ee ee ee ee ee ee ee ee 


 STARTOGsIZ.C1321] 4, % TELLS IF LEADING * IS REQUIRED OR OPTIONAL 
 DEFAULTSO#» 
 NEWBASE = IZef4181]#>— 


7 ERTEN Gsbta eat eirite t 
—  PATCHINGRBCIZe C4681) te 
- PROGRAMSBCIZ) ds 


_ _LISTINGSROUTINES6#> 
- COPYSEQINGSROUTINE=S#, 


-NCHRSCNCHRS11=INFOCNCHRS1 513604187 }#s % NO, CHRS USER HAS TYPED. 


SEONG | af INFOCUSER#2) 49% CURRENT SEQ NO, $ 99999999 
MID. = JNFOTUSER® 324, % PREFIX OF USERS FILE NAME oo 
FID ig = INFOLUSER?4I#> % SUFFIX OF USERS FILE NAME 


PRCT & 
— TOLT = INFOCUSERs9],C 1223742 % USERS IOLE TIME 


COUNT === ——<ié‘“‘éi LTA, X NUMBER OF CHARACTERS GOTTEN BY SCANNER® 
 ANSW = O# % USE PRT INSTEED OF ARRAY FOR ANSW 
NUMBER = RESULT#101¢». % SCANNER FOUND A NUMBER. 
NAME = RESULTs102#, % SCANNER FOUND A NAME 


wREAL TeT1eT23 % GLOBEL TEMPS» 11 BITS FREE IN Ti | Oa awe 


INDICATE THE USE OF PARTS OF WORDS IN INFOQ? 


B=BOOLEAN#» ReREAL#sCFaC33tiSl#sFFa(yerisje, 
TUBLTUBIISRCBCIZI=INFOCTUBLs07) AND BC™7S00000%))#» % TU AND BUFFER 


% O*STARTOG INITIALLY RESET» 1°WOULD BE SET, 
% HAVE NEWBASE FROM SEQ SPECS 
FULLEFULL1]=IZ¢SINFOCFULL120] LSS O#» % TRUE WHEN MESSAGE RECEIVED. 
CHANGINGSBCIZefA3t1 J) ts % USER IS CHANGING © 
LABELEQUATEDSBCIZ.C44t1 J] #» &% USER HAS FILE OPEN ~ 
USER IS ENTERING TEXT a 
“USER 1S ENTERING PATCHES 
; % USERS FILE 1S PROGRAM 
ROUTINE = I[Zef33841]#s 
PLACE = JZ,037331]#» * PLACE TO GO IN MULTICALL ROUTINE « 
—% IN COPY. GR. RESEQUENCE MODE ae 
RUM ss 1Z, C18815)#, % CURRENT RECORD NUMBER LSS 32768 
FLE sIZ. C326]#s ed % THE FILE NUMBER ASSIGNED TO USER 
TABAMOUNT = INFOCUSERs1),£364°5) 4» 
BUFOQUT#INFOCUSRe11,03383)4s% NUMBER OF BUFFERS OUTs USED IN OUTPUTIT 
INC = INFOLUSER? 11, C18ti5l¢#s & STEP SIZE LSS 32768 


JON = INFOCUSERs5]#» % 52657 IS CHARGE CODE 
TAOT = INFOTUSERs8). C1:23]#» % USERS 1/0 TIME 
INFOLUSERs81,C24124]4#» % USERS PROCESSOR TIME 


STRT = -INFOLUSERs93,024! 2414» % USERS STARTING TIME 
FILESJUSTFIXEDSREALCFILESOK)=34, % 
BUMPIDLE=BUMPTIMESCTRUE)#s» % BUMP ALL TIMES FOR ALL USERS 
BUMPT IMESBUMPTIMES(FAL SE) #» % BUMP PRCT AND IAQT ONLY 


BAND(DsP)=B(D) AND BCP)#s RAND(PsD)=RCBAND(P sD) )#s 
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864 
865 
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00489100 
00489200 
00489225 
00489250 
00489300 
00489400 
00489500 
00489600 
00490000 
00491000 


00491100 


00492000 
00493000 
08494000 
00494100 
06495000 


00495100 


00495200 
00496000 
00497000 
00498000 
00499000 


90500000 
00501000 


00502000 


06503000 — 


00504000 
00506000 
00507000 
00808000 
00509000 
00809100 
00510000 
00511000 
00512000 
00513000 


00514000. 


00515000 
00515100 
00515200 


00515300. 


00815400 


00515500 
00515600 


00515700 
00515800 


00516000 
00516100. 
00517000 


00518000 
00519000 
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4 
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PRT(256) 
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DICT 


JUNK 
I ee 
USRIBUF 


FILE aes 
“COMMENT. THIS ARRAY. IS USED TO KEEP INFOMATION BOUT USER FILES. THE 
MEANING OF WORDS IN THIS ARRAY IS DEFINED BELOW 


© 


* 


* 
USROBUF 
-*COMMENT USEROBUF IS USED TO DO ALL WRITTING TO REMOTES+ THE FIRST WORD 
OF USEROQBUF CONTAINS INFORMATION ABOUT MESSAGE, FOULGNING. 
DEFINES INDICATE USE OF TRIS WORDS 


* 


vow : 
DEFINE 

CHIN = USROBUFLUSERsOI#3 

% NOTE! OTHER DEFINES ARE IN OUTPUTIT 

*ARR AY, FILESCORMIXMLI 


* 
* 


Ss. 


oe 
*DEFINE 


* 


a 


BORCD»P)=BCD) OR BCPIF» ROR(PsD)=RCBORCP ID) II Pees 
*ARRAY DICTLO?37]» % DICTIONARY OF WORDS AND SENTENCES ; 


JUNK£O815]s % USED INSTEAD OF LOCAL ARRAYS : re: 


USROBUFCOSMIXM1 


ACCSCIJEFILES(I],(O86]#> 
- FUSREFUSRIJ=FILESEFUSR1]0(18%15]#s% FILE USER» 
 PTYPCETYPLI=FILESCFTYP11,.(33%15)4.% INDICATES BUFFERING ON FILE 
--BUFNEBUFN1I=FILESCBUFNI1,¢33!3]#s % NUMBER OF BUFFERS. 
~ RECLERECL1)=FILESCRECL12.036%6]4, % RECORD LENGTH 
BUF ZCBUFZ1J=FILES(CBUFZ11.C42%6]#» % BUFFER SIZE 


~USRIBUFLOEMIXML 


202975 


PTYPs"{#en#, 
NTYP="{20"#, 


CTYPs"12e"#3 


WARRAY 


CRUFLOEMIXM1,0310]3 % STORAGE BUFFER FOR TEXT TO BE CHANGED 


 COLNVeW=20#> 
— OKV sWa25#, 
DATAV=Ws288,» 


BASCVsWs314s 


SYTXVeEW=3G Hs 
NEWV. sWs378» 
FROMVENEAOR> 


ENDV sWeaéts 


LINEVaW=49#, 
COMAVEWs508 >» 


— SPECVeWs554s. cee 
RVS56#> DVESB#s RVM4=55#> 
CHNGVsWe Tt 


«DEFINE 


F="DOeONes 


PLUSVEWR23#» 


-PATV Swe 268» 
ALGLV=W=29#, 


FORTV=W=32#» 
TAPEV=W=35 4, 


-PRNTVEWS 38H» 


INFOV=W=44d, 


FRSTVsW=47#, 


SAVEV=W=508> 
GYY PN e Sots 


RMOVVEW=12#, 


% INPUT BUFFER FOR USERS * 


90916); 


% SERT 


WORDLOLG2I» CONTAINS RESERVED WORDS 


+ DEF INE % W VALUES FOR RESERVED WORDS 
STARV=sRESULT=105#» SPECIALSRESULT=103#> ARROVARESULT.N1ORE WaRESULT Ay 
MNUSVEWs24#, 


PROGVSW=278, 
XALGVSW= 308, 
GOV =W=334, 


NTAPV=Ws36#, 
BASEV=Wedok, 


TOV SWH45#, 
ALLV sWs48#, 
SFQV #We51#, 
INV #W=S4#, 


THRUVEMNUSV#s STEPVSPLUSVGse | 

. LCSV#WS0%» RPLVEW=15#, TABVEWE Lats 

 NOTOVEW NEQ 45%» NCOMV=W NEQ S2#s NINVRW NEQ 54#3 . 

% TO USE WITH CREATEFILE 

_PFILE="DOs<"#» % PROGRAM FILE [202603 €410%30) 
OF TL %® DATA FILE | 

CRILES"#O90K" #3 % CONTROL FILE £1099] €1210230) 

DEFINE GETNUMBERC(GETNUMBER1) = IF GETCGETNUMBER1) THEN GO BADES 

 *DEFINE STEPITSBEGIN OLSTS=START3 SCANNER END#3 


f20: 


* 
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AL»UPDATE OR RANDOM 
MIXMAX IF AVAILABL* 


* 


% (121030) PROGRAM FILES 
% €121520) DATA AND PRINT FILES * 
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107 (14100). 


<4 a a ee 


% Cte t5r 20) COMPILER PRINT FILES® 


ee ee ee 


909 


— 910 


915 
916 


947 


920 


921 


00520000 
00521000 


00522000 
00524000 
00525000 
00526000 


00527000 
00528000 


00529000 


00530000 
00531000 
00332000 


00533000 
00534000 
00535000 
00535100 
00536000 
00537000 
00538000 
00539000 


00540000 


00541000 
08542000 
00543000 
00544000 


— 00545000 


00545100 
00545200 
00545300 
00545400 
00545500 
00545600 


00545700 


00545800 
00545900 


00546000 
00546100 © 


00546200 
00546300 


00546400. 


00546500 


00546600 © 
} 00546700 


00547000 
00548000 


00549000 


00550000 


/ 06551000 
00552000 | 


00554000 


240 
240 


aio 


ee 


743 


932 
9%2 
942 
9%> 
982 
912 
942 


111 
1184 
1134 
1184 
lin 
i1%4 
1194 
1itt 
1184 
1444 
1134 
Litt 
414 


1384 


1510 
1540 
1540 
180 
15490 
1510 


A540 
1590. 


15140 


1510 __ 


15 #0 
1540 
1540 


1510 


1540 
1540 


150 


15%0 
15140 


‘get 


1520 
1510 


ASfO 


1540 
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PRTC261). 
1 


-PRT(263) 
7 pee 
PRT(264) 


— PRTC 265). 


_PRTC267) 


PRT(260 ) 


A Oe ee, 


PRT(262) 
Ne 


ae} 
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fe 
ae 
1 
1 
2 
2 
2 
2 
eS 
2 
2 
2 
2 
2 
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1 
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PRT¢266) 


Oe STACK (F 42) 
STACKCF 43) 
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* RENAMEF IL 


0055 
00558060 


00559000 


00559100 
. 00560000 
00561000 


00562000 
00563000 


00564000 
00565000 


00566000 


00567000 
00568000 
00569000 
00570000 
00571000 


00572000 


00873000 
00573100 
00573200 


00873300 
00573400 


00574000 
00575000 


00576000 


00877000 


START OF SEGMENT 


E=FILEMAINTENANCE#> * 929 
* REMOVEFILESFILEMAINTENANCE#s * 923 
* LISTER#LISTBACK#s % * 924 
*ALPHA FILE IN Baa? 14 (2xMIXMAXsBUFW)3 #925 
B4B7 , m 
*ALPHA FILE QUT TWX 14 C2XxMIXMAXsBUFW)3 * 926 
TWX ees Bue . 
*FILE GFILE pISK €1210,30)3 % GLOBEL DISK FILE * 927 
GFILE 
von MELLE HELP. Q1SK RANDOM "MANYTEX™ "HLFIXER” (1*STOR)S * 928 
HELP 
«PROCEDURE WRITEHELPS * 929 
WRITEHELP : ce : me 
* WRITE CHELPLUSER]» STOR» INFOLUSER» *1)3 * 930 
*STREAM PROCEBURE MOVECFROMsTOOsSKFseSKTsCHRS)3 VALUE SKFsSKTsCHRS3 » 934 
MOVE recap ets . 
oe eBEGIN, (0. #932 
— #COMMENT We MOVE CHRS: CHARACTERS FROM FROM TO TOO AFTER: SKIPPING SKF #933 
_* 9 CHARACTERS IN FROM AND SKT IN TOO, SKF» SKT» CHRS MAY BE GTR 633* 934 
» Sytsloc SKFs SItsSI+63 * 935 
* IF SC NEQ "1" THEN SIS=FROM ELSE * «936 
* BEGIN STtsFROM3 SIt=S14+323 SIisS14+32 END} * 937 
# STt=St+SKFS FROMSSS13 DIt=ToOs DI: =DI+SKkT3 * 936 
* STtsloc SKT3. STtsS1 +63 * 939 
# IF SC NEQ "1" THEN ELSE #940 
* BEGIN DItspi1+32s DI#=D1+32 ENDS « 944 
* STSsLOC CHRSS SIt=S1+63 . * 942 
* IF Sc NEQ "1" THEN SISSFROM ELSE * 943 
(4 BEGIN ST7=FROM DSt=32CHRs DS1=32CHR ENDS 884 
OS PSCHRS CHR : * 945 
-o  WEND- OF MOVES 00 *  - 9M6 
*PROCEDURE SENDOM1 M273. VALUE M1923 INTEGER MipM23 * 947 
SEND 
| - * 948 
INTEGER CNSCRE DEFINE PCRLFSCR#3 oe 949 
= ON 
= CR 
* INTEGER STREAM PROCEDURE SENDER(DsMsB,CN)3 VALUE Me CNG * 950 
SENDER. oe 5s oe 
ow BEGIN Local 73. |. | as e954 
*  S¥ssLOc M3 OLssLOc T3 DIssDI443 DSte7 CHRE * 952. 
#  STHSDE TCSTseS14+325 SLtsS14+32)3 STtsST4Ms WteSTy #983 
* DIt=B$ DItsDI+CNs ST&=LOC CNS STtsSy+63 * 954 
* IF SC="0" THEN ELSE BEGIN DIt=DI+323 DIt=DI432 ENDS SI#sM3 * 955 
*  4BCIF Sca"#" THEN JUMP OUT# DSt=CHRs TALLYS*TALLY41)3 #956 
om  SENDERtsTALLY? DO LRAL TIN S673) oe 957 
a END SENDERA * 958 
* —CNITSCHING pwe G89 
a MA “NEQ 0 THEN * 960 
* BEGIN * 964 
= ate Mi LSS. O THEN BEGIN DEATH#s TRUE CNF#03 CRE=9 END = = * 962 
ee oC EVSE CRoeae. > ee ee 968 
wee “MOVE COICT »USROBUF [USER s1}» OsCNsCR)3 * 964 
* : CNESCNSCRe ot 965 
* . SENDER COICTs1sUSROBUFCUSER»11>CN#CR)3 #966 
* PCRLFis3 ¥D0 «CRLF AT END OF LINE * 967 


00878000 


00579000. 


06580000 


005861000 | 


00582000 
00582100 
00583000 
00584000 


00585000 


00586000 
00587000 
00588000 
00589000 


00590000 
00891000 


00592000 
00593000 
00594000 


45%2 


MARNE ES 


410 
333 
510 
642 
930 
4080 
110 
12%3 
1332 
1410 
1732 
18%3 
2113 
2292 
a7 it 


mM oN POR POND 


worm on 


wn 90-90-10 929280 9000-90700 0 POD. 1000 
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ees STao et ee ee ee ee ‘Sohn adsee Mire oe _ eae woe eax - a eee : E aoe cs ee ceemer ee et ertagems geet 


- pRTCA74) 


o ADLEGAL. eeu STATEMENT. 


ERROR IN COL 6 
MISSING SEMICOLON “OR, ENDs 


ENDS 
IF M2 LSS © THEN PCRLFI=33 
IF M2 NEQ O THEN 
CNt=CN+ 
;  SENDERCDICTsM2eUSROBUFCUSER,122CN)3 
CHINSsCN#PCRLF3 THRUTYPING! sFALSE3 
*END SEND MESSAGES 


+e ee Re 


070-08 00 10 0 
wi We WW) WW 


ae | *DEFINE ERRSSENDHS 
Pe ke *PROCEDURE SCANNERS COMMENT FOR MANY/TEXT, 1/18/69 DAVE BROWN} 
PRTC¢270) = SCANNER a 
Le BEGIN. cue 
bee? a DEFINE BLNKS=S64# /NCHRS= SKP# sASP=SKPHS INTEGER BLANKS} 


ERROR IN COL 29% = 


SYNTAX. ES TAKE TO PROGRAMMING ASSISTANT. 
STACKCF+2) = BLANKS 
fo2) 


ee STREAM PROCEDURE. SCANCINARY» SKP» RESULT» ANSW» BLANKS) VALUE SKP3 


3 
- SCAN 
12 4 * BEGIN LOCAL $643 LABEL DBLNK3 
42 A * COMMENT SKIP OVER PREVIQUSLY SCANNED CHARACTERS 
A 2 4 * STF ELOC SKPS SytsS1+63 
1.3.48 *# TP Se NEQ "1" THEN STtetNARY ELSE | 
43 4 oe BEGIN SISSINARYS ST3=S1+323 S¥2sS74+32 END} SIteSI4SKPS 
ee woe —OLPsANSwW3 DI?sD1433 ASPEROES % STORE ANSW POINTER. 
ERROR IN COL 331 
MISSING COLON AFTER LAREL, 
Be dae tes OBLNKS . 
23 4a Oe Sc#" " THEN JUMP OUTS SIteSl4q3 TALLYPATALLY41)3 a 
(2.3 8 ae SC NEQ " " THEN ELSE % HAVE GEQ 64 BLANKS 
2 98s BEGIN % PUT 64 IN BLANKS» I,£. NUMBER SCANNED DIV. 64. 
2 4 4 * DIteBLANKS$S DI%*=D1+63 OStaLIT1"3 
24 4D * Srt=sSl+144 TALLY%?2#04 GQ OBLNK 
2.44 in END3 
S23 8. + BLNKSt=2TALLY3 & NUMBER OF BLANKS SCANNED MOD 64 
2 3 4  — & HLteRESULTS ODItsDI4+73 TALLY! #03 
2 ek * COMMENT HAVE A NON BLANK CHARACTER» SEE WHAT IT 183 
2 3 4 * IF Sc2"0" THEN 
2 3 4 * BEGIN % HAVE AN INTEGER (1) 
cole 33. 8 ere ChE iN DIF SASP3 
ERROR IN COL 30: | oe ee 
_ TURES aL STREAM STATEMENTS ee : a 
ogee oo “s2epsr=cHRs TALLYS=TALLY413 Ip Sc<"0" THEN JUMP OUT), 
ERROR. ty COL ie ~ Pa eee A asa Se 
MISSING SEMICOLON OR END, 
4A hee eee END 
8 8A ee SEUSE 2) 
4208) be 1 SC=ALPHA THEN ee 
co BEGIN &% HAVE AN ALPHA. NAME (€2) 
4 3 4 * OSteLTT*O"). DIMtsASP3 
ERROR IN COL 30% ASP 


4. 


ot. 


6 4 4 . ELSE 


* 
* 
* 
* 
* 
* 
* 
ele 993 00626000 
* 
* 
* 
* 
* 
) 


ee ee 


—12CTr SCH ALPHA THEN DS#=CHR ELSE JUMP OUTS TALLY ESTALLY #1) 5 


968 00595000 
969 00596000 
970 08597000 


972 00599000 


973 00600000 
974 00601000 


* 
* 
* 
* 971 00598000 
* 
* 
* 


3.48 42 LONG» NEXT SEG 


* 975 00602000 


* 976 00610000 


oe 977 00611000 
* 978 00612000 


START OF SEGMENT 


“* 979 00613000 


980 00614000 
981 00615000 
982 00616000 


984 00618000 
985 00618100 


* 
¥ 
* 
* 983 00617000 
oe 
* 
0 


00642000 


986 00619000 


987 00620000 


988 00621000 
989 00622000 
990 00623000 
994 00624000 
992 00625000 


994 00627000 
995 00628000 
996 00629000 
997 06630000 
998 00631000 


a 0618100 


¥ = 999 00632000 
00631000 


1000 00633000 


1002 00635000 
1003 00636000 
1004 00637000 
00632000 


ree 
/ 00637000 


“#1006 00639000 


* 1007 00640000 


1004 00634000. 


2732 
2810 
3030 
30193 
3142 
3533 
39140 


45%2 
4532 


45392 
45%9 
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6003 Be BEGIN % HAVE A SPECIAL CHARACTER (3)e IF "e" THEN (4) 
6 a 4 . IF Scate™ THEN OSts_LIT"Q" ELSE 
6 4 4 * IF SCa%*" THEN OSSsLIT"R" ELSE DStsLIT"P%; 
6 4 & * _. DIPSASPs DSt=CHR3 TALLY s=43 
ERROR IN COL 18% ae “ASP 
ILLEGAL STREAM STATENENTs ao 
i ee Sara. Sane) + END3 
7 3 4 * NCHRS?=TALLY3 % NUMBER OF CHARACTERS SCANNED 
ERROR IN COL 158 : 


SYNTAX. ERROR... PLEASE TAKE TO PROGRAMMING ASSISTANT, 


COMMENT PUT NUMBER CHARACTERS SCANNED IN OUTPUT ARRAY? 
_BEERLOC NCHRS} fe OIt=ANSWs DLtsO1 +2} DStacHRs 


Be ek * 
ERROR IN COL 221. 
SYNTAX ERROR» PLEASE TAKE TO SE ach uviNc ASSISTANT. 


9 3 4 * COMMENT PUT NUMBER OF BLANKS SCANNED (MOD 64) IN BLANKS3 
9 3 4 _* ___SItsLOC BLNKSS SIt=S1473 DItsBLANKSS OItsD14#73 DStsCHR3 
9 3 Ae END Or ScaNE | ; 


ERROR IN COL 18t a 
LABEL UNDEFINED IN GC TO STATEMENTs 


10 2 3 * ANSWS=03 RESULTI?=1043 
10 2 3 * IF START=O OR STAR THEN 
10 2 300 IF RCSTAR)="R" THEN % FIND OR REPLACE 
fo. 23 * ae SCANCJUNKE#] + START» RESULT» ANSWs BLANKS) 
$0 203° * ELSE 
102 Be | “SCAN CUSRIBUF USER, *]» START» RESULT» ANSWsBLANKS)3. 
10 2 3 * IF START=O AND STARV THEN STARi=sTRUE3 
10 2 3 * IF STARTS=START+BLANKS#+COUNT GTR 80 OR ARROV THEN STAR?SFALSE3 
10 2 3. * ENO OF. SCANNERS 
: 10 4 Ale _-sBOoLEAN PROCEDURE SEARCHERCPRESENT» TYPE) 5 VALUE PRESENT» TYPES” 
PRT(272) = SEARCHER 
10 1 2 * BOOLEAN PRESENTS INTEGER TYPES 
io 1 2 * BEGIN 
10 1 2 * DEFINE SRCHsGFILES3 
ee AOe 23 * ALPHA MsF3 LABEL BAD» SRCHITS INTEGER OLST3 
STACKCF+3) = M Eee 
STACK(F #4) = F 
STACK(F+5) = OLST 
10 2 3 * DEFINE % ALSO INDICATES MEANING OF TYPE | 
IQ 28 — ASJUNK#s DATASTYPE=O#» PROG=TYPE=1#»+COMPILER=TYPEs2#s 
10 2-3 * _PRINTSTYPES3#s00ESNTMATTERSTYPESA#s AQ=M#, A3Z=FH#> AUsQH} 
AO 2 ae # STePITS SCANNERS % LOOK FOR SEPERATOR IN FILE NAME a] 
10° -22°3 * IF @#%1/0000" AND REALCPRESENT) LEQ 1 THEN % NOT A FILE NAME 
10 2 3 * BEGIN % USE THE FILE NAME IN INFO 
ee, ee MasMID3 FrsFID3 START#sOLST# STARt=TRUES % BACK UP TO WHAT WAS 
A009 3 oe RM GTR O THEN GO SRCHITS % TO LET NAMES BE. FORGOTTEN : 
10 303: ee ENDS 
4002 43. + STARTESOLSTS” x BACK UP TO FILE NAME 
10 2 3 Miapis "3 SCANNER} 
10 2 3 * IF (NAME OR NUMBER) AND COUNT LE@ 7 THEN 
£0 2: 3 +. ,MOVECANSWaMs 321s COUNT) ELSE GO BADS 
10.2 9m  SCANNERE = 
AO eB Za ae @="1/0000" ‘THEN SCANNER. ELSE GO BAD. 
1002 3 * IF (NAME OR NUMBER) AND COUNT LEQ 7 THEN. 
10 2 3 * BEGIN 
10 2 3 = MOVE CANSWoFe 39 1*COUNT)S 
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1008 00641000 
1009 00642000 


1014 00643000 


00638000 


* 1012 00644000 
* 1013 00645000 
00643000 


* 1014 00646000 


* 1015 00647000 


00645000 


* 1016 00648000 
* 19017 00649000 


* 4018 00650000 | 


00647000 

» 4019 00651000 
* 1020 00652000 
* 1024 006821400 
* 1022 00652200 
* 1023 00652300 
* 1024 00653000 
* 1025 00656000 
* 1026 00687000 
* 1027 00658000 


#1029 00660000 


* 1030 00661000 
4034 00662000 


START. OF SEGMENT 


4032 00663000 


1033 00664000 
(4034 00665000 
1035 00666000 
1036 00666100 
1037 00666200 
1038 00666300 
1939 00666400 
1040 00666500 
1041. 00666600 
1042 00666700 
1943 00667000 
1044 00668000 
1045 08669000 
1046 00670000 
1947 00671000 
1948 00672000 


1050 00674000 


* 
* 

* 1010 00642100 
* 
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1049 00673000 


@ IS AL LONG» NEXT Seq 
-* 1028 00659000 
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1640 
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aSRCHIT! FILL SRCH WITH MeF3$  SEARCHCSRCHAL HIS 2 * 4051 00675000 2740 5 
* AOtsALOI} AZS=AL3]3 AAtSAL4I} * 1052 00676000 3144 5 


eeeenee de INVALD INDEX! ALGOL /MINI = 2s S 3 48s A = 9283s EFF INX [S "2 A#RHHERHERARERE RHPA HARA ARE R ARR ARR ERE 


LABEL OQONOD00000LTINE 00176271CC COMPILE MINI/TEXT ALGOL LIBRARYSALGOL FILE CARD=SYMBOL/MANYTEX DISK E ALGOL /MINI 


eo @ @ @® @ @ @ @ @ (@ 


eoe0oeeee8 0 4 


re OU 


? EXECUTE PATCH/MERGE 
_ PACKET 1068 
INPUT 344 CARDS. FROM CRA 


TIME 1702. 
DATE 76974 MONDAY» (09/27/76 


"wwe MESSAGE OF THE DAY #+# 


WELCOME TO B5700 TIME SHARING, 
MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN, 
FROM THE ‘STAFF a THE Bre BAD. BURROUGHS. 


Ai gcaouie- 4b tengo wine XV1e0069 AND INTRINSICS MARK XVI,0000 «4% 


? EXECUTE PATCH/MERGE 
POAT CARD. 
; " "SIPATCH/MERGES. 2. Bou 1702 02/06/75 
CDA IN CARDIPATCH/MERGE= 2 
PBD1069 GUT O11 LINESPATCH/MERGE? 2 
DKA QUT SER MASTERF QOQO00OSPATCH/MERGES 2 
DKA _IN SER PATCH TSSMCPIPATCH/MERGES 2 
DKA: OUT SER. PATCHDE OOOCOOOO!PATCH/MERGES 2 
DKA REL PATCH TSSMCPIPATCH/MERGES 2. 
CDA REL CARDEPATCH/MERGES 2— 
PEND, 
PATCHDE/0000000/0000000= 0 SEGS™=CREATED 09/27/76 AT OO824E11811 
DKA REL PATCHDE 0000000SPATCH/MERGES 2 ao 
- PBD1069 REL 011 LINE 302PATCH/MERGES 2 
-MASTERF/0000000/0000000= 300 SEGS==CREATED 09/27/76 AT 17802tur7t22 
DKA REL MASTERF OOQOOOO!PATCH/MERGE= 2 
PATCH/MERGE= 2sPST= 24 EOY 
PKT#1068 REMOVED 
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“LABEL. OO0000000LINE 001762712 EXECUTE PATCH/MERGE 


BURROUGHS B#5700 PATCH/MERGE PROGRAM MARK XVI.0,00 


FORM 


2 ORI 


ORM oe 


FORM 


"EORM. eg 


CONFLICTS 


CARD INPUT IS CARD 


— PATCHES/TSSMCP IS NOT ON DISK 
PATCH /TSSMCP WILL BE MERGED 


= 75#,% SWITCH DCPCC)MFORM"="SPECIAL" 
76H, % SWITCH DCPCC)"FORM"="SPECIAL" 


7S + & SWITCH DcPeey 
a ee ae 


77, So & «SWITCH DEPCO) 


NUMBER OF ERRORS DETECTED = 0, 


PROCESSOR TIME = 


ee Ee: ee EC OND Se 
“I/O TIME = 21 SECONDS, 


LABEL ‘OOOOOD000LINE 001762712 EXECUTE PATCH/MERGE 


= 75#,% SWITCH DCPCC)"FORM"="SPECTAL” 
= 77#s% SWITCH DCPCO)"FORMM="SPECTAL” 


20240000 
20240000 


20240000. 


20240000 


41485600. 


41485600 


44485600 


on 
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PATCH /MERGE 


MONDAYs 09/27/76» 5:02 PM, 
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846 CONFLICTED WITH? 


724  . DISCARDED 


846 CONFLICTED WITH 


603 DISCARDED 


846 CONFLICTED WITH! 


724 DISCARDED 


603 DISCARDED 


PATCH /MERGE 
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SE get? 
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2 EXECUTE ESPOL/DISK 


PACKET 1070 
INPUT. 496 CARDS FROM ZIP | 
TIME 4703 
DATE 76274. MONDAYs 09/27/76 


“wee MESSAGE OF THE DAY tee 


WELCOME TO R5700 TIME SHARING, 
MAY, YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN. 


FROM TRE. STAFF OF ‘THE BIG BAD BURROUGHS, 


wee BURROUGHS B5700 TSMCP MARK XV14.0.69 AND INTRINSICS MARK XVI_,0e00 w4* 


se EReCUIE ESPOL/DISK — 


® 


saeass 


pe 


STACK= 1024. 


CORE= 12000. 


FILE TAPF= SYMBOL/TSSMCP DISK SERIAL 
FILE DISK= TSS/XMCP 


FILE STUFFS TSSMCP/XSTUFF 
FILE LINES LINE PRINT. ‘OR BACK UP 


a DATA CARD. 


“PEND. 


—4LESPOL/DISKS 3 Bou 4703 06/22/76 
DKA CUT SER CODE OOO00000:ESRPOL/DISK= 3 
COB IN CARDSESPOL/DISKs 3 
DKA IN SER SYMBOL TSSMCPSESPOL/DISK= 3 
DKA QUT SER TSSMCP XSTUFFSESPOL/DISK= 3 
DKA QUT. SER CODISK Q000000TESPDL701 Ske 3 
STT oe 
TIME FOR ESPOL/DISK= 3 IS 15817 IN 24804 
TSSMCP/XSTUFF REMOVED 
TSSMCP/XSTUFF/00000008 150 SEGS*=CREATED De AT ets . 


DKA LOK TSSMCP. XSTUFFLESPOL/DISK® 3 


CoB REL CARDTESFOLZOTSKs 3 


DKA REL SYMBOL TSSMCPLESPOL/DISK= 3 
OKA OUT.SER TSS XMCPSESPOL/DISK= 3 
DKA LOK TSS XMCPSESPOL/DISK=s 3 


 CODISK/0000000/0000000= 1800 SEGS==CREATED 09/27/76 AT 17403338153 — 


OKA REL CODISK OOOOOOOtESPOL/DISK= 3 

CODE/0000000/0000000= 0 SEGS==CREATED 09/27/76 AT 17303128825 
DKA REL CODE OOOOOOO?ESPOL/DISK= 3 
ESPOL/DISK= 3,PST= 19:05 EOV 

PKT#1070 REMOVED 
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INTRODUCTION 


wh 1 PA an OR OR aw HE Oe OE 


R/C PERMITS A USER AT A REMOTE TELETYPEWRITER TO CREATE AND 
MAINTAIN SOURCE QR DATA FILES on THE B5500 SYSTEM DISke FILE 
TYPES CREATED AND MAINTAINED wITH R/C ARE: ALGOL» XALGOL» COBOL, 
FORTRaN* gaSIc* AND DaTaAe THESE FILES REPRESENT NORMaL (80 
CHARACTER*PER@CARD) PyNCHED CARD DECKS EXCEPT THAT THEY ARE 
STORED ON THE OrSk, EACH RECORD CAN BE THOUGHT OF AS ONE CARD, 


R/C ALLOWS THE USER TUS 


CREATE A VARIETY OF FILES 

RESEQUENCE FILES 

PRINT OR PUNCH FILES 

DELETE oR INSERT RECORDS INTO A FILE 

MODIFY RECORDS WITHIN A FILE 

SCAN A FILE FOR THE OCCURRENCE OF A STRING 
COPTIONALLY REPLACING IT WITR ANOTHER STRING) 
* REMOVE FILES 

* COMPILE FILES 

* PERFCRM MANY OTHER FUNCTIONS 


* *& ee * BH 


THE TELETYPEWRITER CIN CONJUNCTYON WITH THE PROGRAM R/C) CAN 
BE CONSIDERED A KEYPUNCH EXTENSION WHICH ELIMINATES PUNCHED CARDSs 
It OFFERS GREAT FLEXIBILITY IN FILE HANDLINGe 


R/C HAS TWO MAJOR RESTRICTIONS: 
WHILE THE SEQUENCE NUMBER 99999999 IS PERMITT 
CONVENIENCE, THE MAxImMUM SEQUENCE NUMBER IS 2097151 ¢2 


THE MAXIMUM NUMBER QF RECORDS PERMITTED IN A FILE Is 
Bidi, 


In THE DISCUSSION OF CERTAIN R/C VERBS, SOME OF THE ELEMENTS 
OF THE SYNTAX ARE GIVEN AS <M>» «Nos «<l>e OR «<J>, IN EACH CASEs 
THESE ELEMENTS REPRESENT INTEGER VALUES WHICH MUST BE PROVIDED BY 
THE. USERe THE VALUE MAY BE A RECORD NUMBER FOR SOME VERBS» THE 
SEQUENCE NUMBER FOR OTHERS» OR aN INCREMENT AMOUNT, THE 
BRACKETED CONSTRUCT IS ONLY A FORM OF NOTATION USED TO REPRESENT 
AN INTEGER PARAMETER, 
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|. PROGRAM OPERATION AND RECORD SEQUENCING 


eee ee ee ee ee ee ee 2 ee e9 yet fo eS 


-. DYRING -CREATION AND FILE MAINTENANCEs R/C AUTOMATICALLY 
OADVaNCES: -€pY THe CURRENT ValUE OF THE “INCREMENT") THE SEQUENCE 
NUMBER OF EACH RECORD THAT IS INPUTe THE USER MAY SET THIS 
ENC RE MENT TO ANY ODESIREO VALUE THROUGH USE OF THE "*INC® VERB 
OSEE BELOW) THE INCREMENT VALUE IS ENETEALECED As OTTREN as 
USER FIRST RUNS R/Ce 


Teemu erat SEQUENCE NUMBER 1S SET:TO TwE [NCREMENT WHEN A: 


(NEW FILE IS OPENED BY A USER» FOR EXAMPLE® IF THE CURRENT 


~ INCREMENT WERE loo» THE FIRST SEQUENCE NUMBER IN THE FILE wWOuLD 


BE "100%",. THIS INITIAL SEQUENCE NUMBER MaY BE CHANGED BY THE 


- AY sSER a USE OF THE CONSTRUCT "*<No"s CSEE BELOW)» 


iptee: “EACH RECORD Ig TYPED twege THE Piped: THE SEQUENCE 


; “NUMBER OOF : THE NEXT RECORD iy THE FILE -1S.SET Tg THE LAST: SEQUENCE = « 
NUMBER. PLUS THE INCREMENTe THIS SEQUENCE NUMBER Is NEXT ha ON 


ERE STEER TYPENR ETERS 


ap THE. FILE TYpe IS NOT “coBoL"» THE SEQUENCE. dace: Is 


FOLLOWED BY A COLON. IF A RECORD ALREADY EXISTS WITH THIS 
SEQUENCE. NUMBER» LEapING ZEROS a~Re TYPED aS a WARNING; OTHERWISE 
- LEADING \ZEROs ARE suPPREssED. AFTER TRE SEQUENCE NUMBER Is TYPED 
OUT» THE USER MAY THEN ENTER THE DESTRED CONTENTS FOR THAT 


SEQUENCE. yUMBER @R wAY ENTER A VERB TQ PERFORM SomE OTHER 


; ALTERN aTIVELY? THe USER MaY SET THe SEQUENCE TO SOME OTHER 
VALUE -THROUGH THE USE OF THE CONSTRUCT "*<N>", WHERE <N> IS THE 


LDESIRED. ‘SEQUENCE NUMBER NOTE THAT LEADING ZEROS .ARE | cori cae 


SOUT “NOT NECESSARY WITH THIS CoNSTRUCT. 
_ 


By ysE OF, THE "*<N>" CONSTRUCT AND THE "*INC” VERB 10 seq 


“THE. SEQUENCE NUMBER JNCREMENT, THE USER MAY SET UP HIS OWN 
NUMBERING: SEQUENCE THROUGHOUT HIS FILE. 


i B 


et RK & ke 


} tg Bye OR EE aL 
.. + THE EXAMPLES ;ILLUSTRATE THE sEQUENCE NUMBER OF THE RECORD 


“i ATYPep ON THe. iLerT SIpe OF THe PAGE AS IT APPEARS ON THe 


TELETYPENRITER. AND THE MANNER In WHICK THESE RECORDS ARE 


|. INCREMENTED. - ALTHOUGH ALGOL» xXALGOL» BASIC AND FORTRAN FILES 

ACTUALLY CARRY iTHE SEQUENCE qUmBER IN CHARACTER POSITIONS 73°80 
<s°QF-.7HE . RECORD»! R/C TYPES THE NUMBER ON THE LEFT MARGIN OF THE 
i « TELETYPEWRITER, - 


a 4 
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PROGRAM EXECUTION 


ee ee ee eee ee | 


INTTPaL RemMOTe TeRMINaL OPERATIONS 


ee ee ee ee ee 


FOR Loscrncetn TO A TELETYPEWRITER, PRESS THE “wORIGH ‘BUTTONS 


WALT .pOR-. otal TONE FROM THE SPEAKER» aNyn plak THE COMPUTER 
PANUBBER “THE 85500. ‘RESPONDS WITH THE MES ese 


vars \>. S BURROUGHS B#*5500! <TT>/<BB> oe; 


ar ee er ee ee ee ee er 


TERMINAL NUMBER AND <8B> IS THE BUFFER NUMBER.) - 
YOU MAY: TYPES 


La <USERCODE>/<AUTHENTICATION CODE>« 


OS a eg ee OE ae greed 


Bo Bots sap eigen y ma 
THIS LOG*IN MESS aGeE MaY HaVE BEEN PRECEDED pY A "?g0e" 


as MESSAGE HICH WOULD HAVE BLACKED QUT THE LINE ON wHICH THE 
eee . @ oe WAS TYPED, 


THE B5500 VaLIDATES THE <USERCODE> AND <aUTHENTICATION™ 


—CODE> AND RESPONDS BY TYPING OUT THE STATION NUMBER AND THE = 


FEME ve DAY QF THE LOG*IN.« 


To CONNECT A REMOTE TERMINAL TO R/Cs ENTERS 


2? RUN R/CJENDge > 


THE 85500 RESPONDS BY EITHER TYPING OUT aA “BOU" CREGINNING 
OF JOB) MESSAGE» A "SCHEDULED" MESSAGEs OR A "RUNNING" MESSAGE. 
A "BOJ" MeSSAGe INDICATES THAT R/c WAS NOT PREVIOUSLY RUNNING BUT 
HAS NOW BEEN ENTERED INTO THE MIX AND IS READY FOR USEe A 
"SCHEDULED" MESSAGE INDICATES THAT RvsC WAS NOT PREVIGUSLY RUNNING 
AND IS SGHEDULED. %Iy THIS CASE» R/C IS Not BROUGHT InTo THE MIX 
UNTIL OTHER sYSTEM USERS CUMPLETE THEIR WORKe THE "RUNNING" 
MESSaGe INDI caTES R/c IS abReEavY IN THE MIX. 


ls (THE STATION NUMBER IS <TT>/<eB> WHERE <TT> IS THE © 


[het ie. PAGES 4 


\ 


ave: £5» oh 


7 WLTH R/C IN THE MIX» ITT AUTOMATICALLY SEARCHES OUT AND LOCKS 


- ONTO REMOTE TERMINALS WHICH HAVE REQUESTED CONNECTION (BY "RUN R~/ 
-2C%), gS SOON a~SiYOUR TERMINAL IS LOCKED» R/C TYPES ONE OF THE 
“FOLLOWING MESSAGE SEQUENCES» ACCORDING TO THE MANNER IN WHICH R/C 
~ ENDED -pURING YOUR LAST R/c¢ RUN CFIRST™ TIME SERS ARE CONSIDERED 
TO HAVE ‘CAUSED NORMAL LAST ENTRIES)3 : 


eS 


INT TIAL MESSAGE AFTER NORMAL TERMINATION OF LAST RUNS 


--€R/C VERSION NUMBER> ah win eg, BG 
<*>. HELLO <USERCODE> 
ren 2 


INTIAL. MESSAGE AFTER "* END Xx" OR ABNORMAL LAST RUN 


SRM NAY TON) 
i = FILE WAS OPEN 
AN eRG VERSION NUMBER? Salen hie Myles OAS & 
: “SFILE NAME OF OPEN FILE> em PES 
HELLO+<USERCODE> bs ene ad 
eR eNGE NUMBER IN THE OPEN FILES 
“OR TF No FILE IS OpeN 


eva VERSION NUMBER? 
. -HELLO+<USERCODE> 


eA MeSSpGe HaS weeN SENT FROM gNOTHER USER TO YOUR 
“USERCODE “(SEE THE MAIL VERB), “MAIL a” IS TYPED INSTEAD OF © 
-MHELLOM, 


WY a 
EXAMPLES: 
VERSION # 


RELLO BLUM 
8 


TRIS Is THE NORMAL INITIAL SEQUENCE FROM R/C. 


VERSION # 


o 


— agagts 
' HELLO+ WILNER - Pe. e 
yd? eee t - xe 


seers G  THIS SEQUENCE INDICATES THAT R/C REMEMBERS THE USERS 
STATE FROM THE PREvIOUS RUNe THE STATE INCLUDES THE 
INCREMENT VaALUEs TAB AMOUNT» SaVE FACTOR* PERCENT ONWOFF, 

AND ‘VERB REPLACEMENTS® 


Led se oe : : me pes ily Pos 


VERSION # 
FILE/NAME 
HELLO+. SHARPE 
- 00050600! 


hos THIS SEQUENCE INDICATES THAT USER HAs THE FILE "FILE, 
NAME" gpEN AND IS aT THE RECgRD WITH SEQUENCE NUMBER 50600, 
THE - LEADING ZEROS INDICATE THAT A RECORD ALREADY ExIsts WITH 
~ THAT NUMBER. 


FINAL REMOTE TERMINAL OPERATIONS 
0 en em a ee Ee ee, ae ee cat SE ten OO 


\e 


THE: USER SHOULD TERMINATE HIS USe OF R/C WITH THe "* END. . 


COMMAND CSEE?BELOW)+ R/C WILL RESPOND WITH *GQOD BYE" 


AFTER HE HAS ENDED R/Cs IF THE USER IS DONE WITH THE REMOTE 
TERMINaL HE SHOULD LOg*OuT BY ENTERING: *?L0e" 


R/C INPUT 


INPUT TQ R/C IS FITHER COMMANDS OR RECORDS, 


COMMANDS ARE IydICATED BY THE CHARACTER %*" Ty THE FIRST 
INPUT POSITION. CIF THERE IS NO OPEN FILE» THE "*" IS OPTIONAL®) 
ALL OTHER INPUT IS CONSIDERED RECORDS TO BE PLaceD IN THE OPEN 
FILE. THE FORMAT FOR A COMMAND IS THE "*" FOLLOWED BY AN R/C 
VERB AND, {F NEEDEDs TS PARAMETERS, THE VERB AND JTS PARAMETERS 
MUST BE SEPARATED BY A DELIMITER, 


A DELIMITER IS EITHER A SPACE OR ANY SPECIAL CHARACTER 
EXCEPT A wit, A ew, A wits A won, OR A wom, MULTIPLE 
DELIMITERS ARE TREATED AS A SINGLE DELIMITER. 
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a 
A COMMAND MAY BE FOLLOWED BY ANOTHER INPUT (EITHER A COMMAND 
‘OR A RECORD) IF IT IS TERMINATED BY A "3s AN ERROR IN A COMMAND 
“QF MULTIPLE aed INHIBITS THE PROCESSING OF THE REST OF THAT 
“TNPUTS cau i i 
EXAMPLES: | 
1008 INC oe . 
| THIS. 1s i EXAMPLE OF ONE OF THE INPUT COMMANDSs 


1002BEGIN« 


me ON 


oe “THIS 1S :AN EXAMPLE OF PLACING A RECORD AT SEQUENCE 
- NUMBER 100, 
heh Bead He ech dtd 
(100%* INC 33% RESEQe 
THIS 1S. AN EXAMPLE Of MULTIPLE COMMANDS, 
10014353 THIS | RECORD GOES AT 35¢ 
.THIS IS AN EXAMPLE OF ,g cOMMaNpD FOLLOWED BY a RECORD OF 
ve INPUT. - oP hess 
“{O08* OPEN iA/B DATAS* PRINT FOR MES *CLOSEe 
HIS «oLg ANOTHER EXAMPLE OF MULTIPLE COMMANDS. NOTE 
.» THAT - THE ‘T#™, MUST APPEAR IN THE NEXT CHaRacTER POSITION 


 FoLcowinG THE SEMICOLON OR THE REMAINDER oF THE RECORD IS 
TREATED AS DATA, aoe be 


2 ee 
aANG INPUT-iLENE IS SENT TO THE COMPUTER BY TYPING THE 


CHARACTER. met, TYPING ERRORS CAN BE CORRECTED, By BACKSPACING 
AND. LINE. PRASINGs | BeFORE A MESSAGE IS SENT, THe BACKSPACE 
CHARACTER. IS THE: apgSTROPHE (SHIFT 7) AND THE LINE ERASE 


CHARACTER Lg THE UPARROW CSHIFT No ALL THE FOLLOWING LINES OF 


ooEypUT) ARE EQUIVALENT CnOTE THE UyDERLINED CHARACTERS REPRESENT 
}sWSE-OF THE SHIFT) #: 


Boe cee 


; 1OO'THIS Is ITe¢ 
‘1OO8THIS IS NOT» BUTNTHIS IS IT 


oy ane 


@®eeeee8ee¢2@8e808086hlh!hthCMhhC<Cc hhUC OhlUC(rhOhUCUrROhlC(C FhlUhO e ee e® 6 


eee PAGE 7 
‘008THE7IS Is IT# 
1008 THESE77718 IS Te 


\. . 7 a 


IF* AFTER ackSPacING No LINE. ERASING? THE INPUT LINE 


. CONTAINS. MORE THAN 240 CHARACTERS, THE INPyT Ig DISCARDED WITH AN 
«-"TNRUT OVERFLW" (ERROR MESSAGE. pATA RECORDS ARe ALSO pISCARpEFp 
-CWITH THE ERROR MESSAGE) IF THEY ARE Too LARGE FoR THE FILE. (CI. 


Ee GTR-66 FOR COBOL FILES* GTR go FOR DATA FILES AND GTR 72-FOR. :. 


ALL OTHER-FILES) 
. gn 


THERE ARE TWO CLASSES OF REQUESTS TO R/C? LONG AND SHORT. 


ALONG OPERATIONS -ARE THOSE THAT USUALLY ARE SLOW TO EXECUTE AND 


ARE CHARACTERIZED BY THE "WaAlTees MESSAGEe ALL OTHER REQUESTS 


“ARE CLASSIFIED AS SHORT OPERATIONSe LONG OPERATIONS ARE 


SOMETIMES: QUEUED BEFORE THE "WalTeoe” MESSaGEs TO BE EXECUTED 
ONE ApecAc TIME. SHORT REQUESTS ARE DONE AS THEY ARE RECEIVED. 


os THE - USERS (IN. THE: LONG REQUEST QUEUE CAND THe USER PERFORMING a 


LONG OPERATION IF IT IS NOT: TyPING ON: THE :REMOTE) PERIODICALLY. =~ 
RECEIVE <A FEW "RUBQUT" CHARACTERS “OF REASSURANCE, R/C. IGNORES: | 


ANY. INPUT SEyT BY USERS In THE QUEUE oR BY THE USER WHOSE LoNG 
OPERATION: 18: BEING PROCESSED. 


i A USER PRODUCES NO INPUT FOR fYVE MINUTES» HE ‘18 “SENT THE 


OOS aad” ‘LOOK ALIVEt.e IF HE DOES NOT RESPOND WITHIN ANOTHER FIVE 


R/C: 


mm me. 


ears omens R/C PROCESSES A "* END DS" FOR THAT USERe 


OUTPUT. 


ek ae 


wee 


; OUTPUT TO THE TELETYPEWRITER OF THE SPECIAL CHARACTERS ¢* #, 


<-<)+-$p >y AND -2 TS REPLACED BY A "§" CHARACTER IN ORDER THAT THEY 

D0 CNOTLEVOKE TELETYPWRITER CONTROL FUNCTIONS WITH WHICH THEY ARE 
-. ASSOCIATE De > (THESE INCLUDE LINE@FEED*? CARRIAGE*RETURN»s MESSAGE@ 
| ENDs AND 'PAPER@TAPEWON») 


ee 


WHEN: THE "BREAK" KEY I§ DEPRESSED DURING OUTPUT» THE OUTPUT 


IS aN ieee WITH THE MESSAGE "BREAK", 


i. Re Ge 


Ce a eS 
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R/C FILES 


i \ 2a ee 


Auk FILES CREATED By R/C ARE PERMANENT DISK FILESe. THE Save 


Cries oRe TS NORMALLY 7 DAYS» But IT MAY BE CHANGED BY THE .SAVE. VERB 


ee ene / eo OA, 


4 oy t 


FILE TYPES 


me Om 


atGi “ENABLES THE USER To CREATE AND MAINTAIN AlLGol» CoBgls 


“conga: -XALGOL» BASIC, AND DATA FILEg. THESE FILES HAVE 80. 


“CHARACTER@LONG RECORDS» CONE CARD IMAGE). 


XALGOL? BASIC* ALGO, ANO FORTRAN FILES CONTAIN EIGHT DIGIT 


+ SEQUENCE NUMBERS LOCATED IN THE POSITIONS 73980 OF THE CARD. IMAGEs 


—cOgOL FILES CONTAIN SIX*pIGIT SEQUENCE NUMgERS» PLAcED IN 


“POSITIONS 106 oF THE RECORD. 


= DATA. FILES ARE NOT PHYSICALLY SEQUENCED ALTHOUGH R/C. 
OMAINT INS: AN aera EIGHT#pDIGIT NUMBER FOR EACH RECORD. : ed 


3 


FILE NAMES 


Pat i Beta tie 


en a 
fa ee NaMes. MUST ge SUPPLIep TO R/¢s THe FORM OF a NgMeE IS 
SPICE. | PREFIy> / <FILeE SUFFI y>e THROUGHOUT THIS pocUMENT, <FILE@ 
‘NAMES Ig ysED TO sPECIFy A FILE AND sHOULOD BE IN THE FORM ABOVE, 


' THE <FILE -PREFIX> ANO THE <FILE SUFFIX> maAY EACH BE NO LONGER: * 


-- THAN SEVEN CRARACTERS. 


EXAMPLES? 
AB 
GRIMY/GULCH 
L6JAN/SUFFIX 


0000000/DISK 3 - ar ee ee 


ee eet tay 
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RECORD REFERENCING 


ae ee ee 


_. RECORDS In THE OPEN FILE (SEE oPEN BELOW) ARE REFERRED TO By 
THETR (SeQUENce NUMapER, “paTa” FILES aRe IMPLICITLY SEQUENCED pY 
THE VALUE OF THE INCREMENT wHEN THEy ARE OPENEDe 

i Nt 


a ee bo eS 
~ AN ALTERNATE METHOD OF REFERENCING RECORDS IN THE OPEN FILE 
IS RELATIVE. SEQUENCE NUMBERS. a, RELATIVE SEQUENCE NUMBER IS aN 
INTEGER <PRECEEDED BY A * OR = SIGNe IT MAY BE YSED ANYPLACE A 
-SpQUENCE NUMBER: 1S USED, IT IS TRANSLATED TO A SEQUENCE NUMBER 
BY MOVING FORWARD oR BACKWARD THE INDICATED \UwBER gF RECoROS and 
USING THE SEQUENCE NUMBER OF THAT RECORD. 


: Sees te oh PE. ee ty te glee. oe era Ae on 3s 
RecORpS IN a, NON"OPEN FILE CEXTERNalL FILE) aRe REFERRED TO 


“By THEIR RELATIVE POSITION WITHIN THE FILE. THE FIRST RECORD IS 


it ds THE ISECOND 2 ETC, ANY SEQUENCING THAT MAY BE ON THE RECORDS 


“TS IGNORED, © 


FILE*HANULING VERBS 


es eS SS oe Ce 2 ee | 


THIS SECTION DESCRIBES VERBS THAT HANOLE FILES AS A WHOLES 


“RATHER THAN RECORDS WITHIN A FILE® HOWEVER* A FEW VERBS RAve 


OPTIONS: IN? R/C SYNTAX THAT PERMIT ACCESS TO RECORDS WITHIN THE 


FILE. © THE COMpLETE SYNTAX IS GIVEN FUR EACH VERB AS WELL AS A 


DIsCusslON: AND EXAMPLES OF ITS USEe AN ASTERISK C®*") MUST 


~ glWaYS BE THE FIRST cHaRacTER IN THe INPUT STRING WHEN a cOMMaND. - 
-.1S ENTEREDs IF THIS IS NOT FOLLOWED, AN EXISTING RECORD MAY BE > 
OVERWRITTEN BY THE COMMAND ITSELF. 
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@®eee#8ee8e¢ © @66m8OG6mUCUOMmUCOUC~CUC ke : e | ® e e e eo @ @ 


PAGE 11 


FILE OPENING AND CREATION COPEN) 


ah a se ee Oe ee ee 


cet 


nes * OPEN. <F TLE*NAME> <FTLE*TYPE> NEW 


Pe eee ee ee ee ee eee 2) 


i 


* OPEN <FILE"NAME> <FILE=TYPE> OLD 


cea er ee a ee ft t ReeKa tee hake: Ae hadeatnedeatiiveie a ReResdala asl teak a. Bod) 


“* OPEN <FILE=NAME> <FILE®TYPE> 


Va a 

- THE "* OPEN * VERB ATTACHES THe USER TO THe DISK FILE <FILe@ 
 NAME>«:. THE. <FILEsTYPE> MUST BE EITHER ALGOL™, "COBOL", 
i VFORTRAN's "WYALGGL™s "“BASIC™» OR "DATA. IF THE <OPEN TYPE> Is 
ON NEW" so aONEW DISK FILE 1S CREATED. IF THE <gPEN TYPE> IS “olp's 

THE) DISK: FILE <FILEsNAME> IS OPENED AND RESEQUENCED BY THE 
+: QURRENT-<ValLUg OF THe INCREMENT. IF THE <OPeN TYPE> IS NEITHER 
 OWNEWH NOR wOLDe THE DISK FILE <FILE*NAME> IS QPENED AND IT IS 
| READ 70 DETERM;NE 7TS SEQUENCE NUMBERS, THyS LATTER FORM 7s 
©). SLOWER THAN THE OPEN "OLDW. | 


nt 


EXAMPLES: 


Porgy 


1* OPEN PROGRAM/SOURCE ALGOL NEWe 


er Se - 4008 


ae 


©. THIS CREATES aA NEW DISK FILE CALLED PROGRAM/SOURCE.> 


635003* OPEN ANOUTHER/PROG DATA OLDe 
' 43002 


THIS OPENS THE FILE ANOTHER/PROG SEQUENCING IT BY THE 
CURRENT INCREMENT VaALUEs NOTE THaT THE FILE THAT WaS OPEN 
IS FIRST CLOSED BEFORE THE NExT FILE IS OPENED. 


t* OPEN YET/ANOTHER COBOLe 
WATT oes 
READ GQNLY FILE. 

7504 


THIS OPENS THE FILE YET/ANOTHER USING THE SEQUENCE 
NUMBERS WITHIN THE FILE. THE MESSAGE “READ only FILE" 


Cr er eS Se Se ey Se Sr ry Se aa | 


@eeeeeeeees&eF#e#ee2e808 @ @® © @ @ @ @ @ 
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INDICATES THAT THE USER Ig FORBIDDEN (BY THE FILE SECURITY 
SYSTEM): TO MODIFY THE FILE. 


ERRORS? 


OUP FILE? <FILE*NAME> 


moat FILE, <FILE“NAME>» ALREADY EXI5TS AND THE USER Is. 
TAY ING To CREATE A FILE WITH THAT NAME WITH AN "* OPEN eas 


NO FILE? <FILE™NAME> 


TRE USER IS TRYING TO OPEN A FILEs <FILE™NAME>» AND IT 


DOES NOT EXIST ON DISK. 


BAD FILE: <PpILE "NAME> 


TRE FILE <FILE™NAME> WHICH THE USER IS TRYING 7TQ- OPEN. 


Is NOT BLOCKED CORRECTLYe THE CORRECT BLOCKING Is LomWORD 
RECORDS WITH a MULTIPLE OF 3 RECORDS PER pLOcKe : 


INV USER! <FILE=NAME> 


THE USER Is TRYING TO OPEN A FILE TO WHICH HE HAS NO 
ACCESS. IF THe USER HAS EITHER SECONDARY OR TERTIARY 
ACCESS, THE MESSAGE? "READ ONLY PUGER ‘IS TYPED. 


FILE TOO LONG 


THE USER 78 TRYING TO OPEN A FYLE WrTH MORE TRAN 8191 
RECORDS. 


SEQ OVERFLOW 


THE FILE THE USER Is OPENING CAUSES THE SEQUENCE 
COUNTER TO EXCEED 290979151, THE FILE IS OPENED» BUT THE 
USER SHOULD RESEQUENCE IT. 


@oeee%ee8e2#e8 @#e#8e060@806=6806h6!86hUCUchUC UMUC MlUCrOhUCUCrCOhUCrMhlCOlhlUr 
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SEQ ERR#<N> 


\ 


TRE FILE CONTAINS A RECORD WHOSE SEQUENCE NUMBER <N> IS 


LESS THAN THE SEQUENCE NUMBER OF THE PRECEEDING RECORDe THE 


FILE IS NOT OPENED. 
' BAD FILE TYPES <FILE*TYpe> ¢: 


a <FILE=TYPE> 1S NOT "ALGOL"» "COBOL'%» "FORTRAN. ; 
"XALGOL™s "BASTC'"s OR "DATA, mae “Et Cad ke WS apse ed 
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FILE CLOSING (CLOSE) 


nn ge a Bm Oe oer OO ae 


- FILES ARE CLOSED BY USE oF THE FOLLOWING CONSTRUCT? 


! 


-* CLOSE Pe he, RS Ea eR MGS 


THES VERB DETATCHES THE OPEN FILEs FROM RCH 
ExawrLes: 
Co | $6008 CLOSES 

ee : gars IS AN ¢XAMPLe Of CLOSING A FIlbe THAT IS IN THe 


CORRECT ORDER» 


“. WSqs* RESEQ Looe 

WA GO00Q%* CLOSES 
my. WALTewe 

ia my Qoc 
SNoo 4 \ PHIES Tg) AN EXAMPLE OF CLOSING A FILE THAT Is NOT IN 
‘ 2 ORDER,’ 
ree - CERRORE. 
S - a pie | ed 

NO FILE OPENs CLOSE 
. TheRe IS NO OPEN FILE TO CLOSE, 


fae 


fe ie As 


Nd 
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LISTINGS ON THE TELETYPEWRITER CLIST) 


TO List 


FOLLOWING CON 


* 


LIST 


= mm ee 


* LIST 


* LIST 


- bl Mad 


* {IST 


* LIST 


- =o me a 


* LIST 


* LIST 


= me oe 


THE "LI 
TO BE LISTED 
BY PRESSING T 


THE 
THE 


THE 
RECORD N 


Ce ee ee el Ramm eo 


FILES oR ANY OF THEIR SEPARATE RECORDSs THE 
STRUCTS APPLY? 


<PFILE*NAME> 


Ce Le ee ee ee! 


<FILE*NAME> NO 


oO oe en on Ot Om ae a t Mad 


<FILE*NAME> <i> 


Reet eee -— am : 


SFILE*NAME> <M> <N> 


oe Oe Oe ee Oe es 


<M> 


<M> <N> 


en 


ST" VERB CAUSES AN ENTIRE FILE oR PORTIONS oF A FILE 
ON THE TELETYPEWRITERe LISTING MAY BE DISCONTINUED 
He BREAK KEY ON THE TELETYPEWRITER. 


FIRST FORM LISTS THE OPEN FILE. 
SECOND FORM LISTS THE FILE <FILE=NAMED>, 


THIRD FORM LISTS THE FILE <FILE=NAME>» WITHOUT THE 
UMBERS« 


. . 
SVG 
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<THE FOURTH FORM LISTS <FILESNAME> FROM THE <M>TH RECORD 
TO THE ENDe TOM one Saas 


" €ND> TH! RECORDS. 


SN THE SIXTH FORM LISTS SEQUENCE NUMBER <M> Of [THE OPEN 


FICE. = 


otHE LAST FORM LIsts SEQUENCE NUMBERS <M> THROUGH <N> OF 
THE OPEN FILE. 


EXAMPLES: 

: ‘y ’ abd ae ‘ . eB : e, : ; 
500%* LISTe ROR a, 
100?BEGIN 644 se sge toa! 


200%: INTEGER Is Je K 3 
3003 REAL Xs Ys 2 3 
400! ARRAY A [0 !# 9) 3 


; 5003 . : aera 
“$500%* LIST 8900s+3¢ 
— 89508 1? [+5 3 
HAL. 94253 GO TQ NEXT 3 
coe .93008 HELPS 
wou 94008 
Ea .¢ 
'- 900060 MOVE A TO Re DA Be, (Bice 
.. 900070 . 
i te LIST SOME/FILE* 
i 1° BEGIN 
a te ae 2; INTEGER I> Js K 3 
iP - 3 REAL Xe Ys 2 3 
Ae eed. — &% ARRAY A TQ ! G9] 3 
fe BR: A [I] @* xX 3 
oS '6TEND. 
i 3 i 
i ay ph. th Hee oe 
Fo. soe 00h ILIST SOME/FILE NO 
eo} *+ BEGIN 
“SS INTEGER Ts Je K 3 
TD. GREAL Ke Yo 2 3 
i ARRAY A'LO & 92 3 
wos: fT ACE ED] te xX 3 
“END,) 
so 5Q08-- 
ee : i 
i 1S 
Los H 


e®eeeeeveeeveeeeeeewneneene5ee 6 


“o "Pe LIST LIBRARY/FILE 2e4e 
\ i 2sPROCEDURE READDATA 
ace 3? PROCEDURE WRITEDAT 
4:PROCEDURE DATA 790 
ie 
$e LIST SOME/FILE Se 
pet 5: A CI] ts X 3; 
GtENDe 
ei) + 3 : ; ‘ 


ye LIST SOME/FILE 2002500¢ 
‘“USE RECORD #58. 


~- TRE LAST EXAMPLE ILLusT 


3. US 
REFERENCING aN EXTERNAL FILE 
OF RECORD NUMBERS, 


5672653 Wee, | 
A 6549789 OE SS ing TE I 
808 


RATES THE COMMON ERROR OF 
W 
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TE 
TH SEQUENCE NUMBERS INSTEAD. 


@®eeee#?6e:seeeee#e @® ® @® @e@6%*e@ee®& 


‘ 


‘, 

4 

“Oy 

oe, ; 4 Ny 
EAN 


COMPRESSED FILE LISTINGS (Quick) 


ee dS eee oe eS . YS kee es 


-\... A COMPRESSED FILE LISTING MAY BE OBTAINED FROM 


THE CONSTRUCTS: 


NAL 
"QUICK 


7 ee eo) 


whoo 


“# QUICK 


*. QUICK 
“QUICK 
a \ 
see 

QUICK 


in ae sal an oe 


en | 


a. *& 


# QUICK 


om at om ty 


«# QUICK 


a ee on ae 


<FILE™NAME> 


am 8 PR ne me OE we ee ae He 


<FILE*NAME> 


ee ee Rd 


<FILE*NAME> 


oe EU omy em ae OE Te ge A On 


<FILETNAME> 


Pr ee 


<M> 


mo 


<M> <N> 


~~ ae oF ome 


NO 


mm 


<M> 


<M> <N> 


om ht oF 


CS 
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R/C BY use OF 


THE "yg QUICK" VeRg LISTS ON THe TELETYPEWRITER DELETING all 


~ -CONTEGYGys BLANKS EXCEPy, THE FIRST. 


- THE VERB, 


ihe ; EXAMPLE! 


45008 
#3008 
“44008 

45003 


LIST 430024400¢ 


FOR Y 
x 
QUICK "2 + 


is A STEP "4 UNTIL O| 


Ci] ts SIN <€Y¥) 3° 


le 


“43008 FOR J t= a STEP "1 UNTIL © DO 
4aog: X CI] t= SIN 


= ABOO8 


CY) + 


qHE FILE Is NOT AFFECYED By. 


oo 


@®eeee#8eee¢?e8e0ee0e 8 ® @® @ @ @ @® @ @ @ @ 


@®eeeee?eee88@®e#ee8280e8080 8080006060686 @4 
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FILE REMOVAL CREMOVED 


ee nF a FR a ome me Oe on OO el ia N 
TO REMOVE a FILE USE THE FOLLOWING cONSTRUcTI 


REMOVE <FILE*NAME> 


ee ee ee ee ee) 


* 


r 


THE REMOVE VeRg REMOVES THE FILE <FILE“NAME> FROM DISK, 


. 


REMOVE LISTING 


ae er te ee 


REMOVES LINE /<USERCOpE>s THe LISTING FILE FROM THE LAST 


ees. °GOMPILATION® © 


ae 


EXAMPLES? 


3200%* REMOVE A/Be 
32008 


546%% REMOVE ANOTHER/FILE€e 
NO FILE: ANOTHER/FILE 
5463 


t* OPEN EXAMPLE/X COBOL OLDe 
46500* REMOVE EXAMPLE/X¢« 
i 


LINE*PRINTER:FILE REPRODUCTION (PRINT) 


CY fo ee ee ee ee an ing: é ‘ Seni 


— THE PRINT VERB! 


whan Nees 
_*PRINT <a> <B> 


re oe ee ee 


<B>)e IF <p> IS wDOUBLE* THEN DOUBLE SpacInG IS USED. 


.#* PRINT <A> <B> <M> 


4 oa aa rer 


~ 3s NS ABOVEs STARTING WITH SEQUENCE NUMBER -<M>, 


* PRINT <A> <B> <M>e <N> 


Oe eee ee eee ee 


© AS ABOVEs STOPPING WITH SEQUENCE NUMBER <N>« 


“EXAMPLESS 


:* OPEN TEST/CASE DATAS* PRINT TC DOUBLEF* CLOSE, 
3 


THIS EXg_MPLe ILLUSTRaTES aN INSTaNce WHERE , SEQUENCED 
FILE shoy_D BE TREATED Ag DATA 7O SHORTEN THE OPERAyIONe IF 
THE FYLE wAS OPENED "ALGOL OLO” «IT WOULD HAVE BEEN 
RESEQUENCED BY THE CURRENT VALUE oF THE INCREMENT ANO THEN 
WHEN It WAS CLOSED IT wOULO HAVE BEEN RECOPIED. IF It was 
OPENED “alGol” IT WoULD HaVE BEEN READ Tg DETERMINE ITS 
SEQUENCE NUMBERSe EETRER wAyY wGuULD HAVE MADE THE wHOLeE 
OPERaTION MUCH SLOWER THaN OPENING THE FILE "DATA 


8700%* PRINT FOR USER} 
WAIT eee 
87008 


3.) PRENTS THE OPENEO FILE ON THE LENE PRINTER (LABELED <A>; | 


@ee3e#eeee%eeee#eee#80 0 080 086 @ ° ® 8® 6 


ae eo 


_ me Aas, Sas 
PUNCHED*CARD FILE REPRODUCTION CPUNCH) 


eee eee ee ee 


i a 
fof fe 


; TO “PUNCH A FILE: 


Sereda iw OPUNCH “<A> <B> 


A On mn mg ae Oe 


4) PUNCHES. <A 
FILE. 
- # \PUNCH <A> <B> 


le femme mm me 


i i i 


eee As ABOVE» 


«EXAMPLE? 


ee a ee a re 1 ten Sh 2 


CARD DECK (LABELED <a> <B>) OF THE OPENED 


<M> 


So nesee sy 5) AS ABOVEs (STARTING WITH SEQUENCE NUMBER <M>, 


i# PUNCH <A> <B> <M>e <N> 


bie He = semee wee nee Ree ee 


STOPPING wITH sEQUENCE NUMBER <N>. 


7600%x PUNCH A B 100%4+10¢ 


> WALT ee. 


 TPOOQOE Pde 


PAGE 210 
Deiat halal eS Mak 


Fa “ So Fee . ae i Sa pethee 7 “ ib cited a Fuateinn A — 


Soe: PAGE 22— 
eh : 
By a: 2 o } 


FILE COMPILATION CCOMPILE) 


ee Lo ee ee ee | 


“FILES. May ge COMPILED TO THE g5500 LIBRARY gY THE FOLLOWING 
CONSTRUCTS 


G2 AOR es ree rel 
~* 8COMPILE <FILE=NAME> 


Re MMO : i . ee eee ee 


THIS VERB INITIATES THE COMPILATION OF THE OPEN:FILE «70 


~LYBRARY USING THE COMPY]LER ;NOTCATED IN THE OPEN STATEMENT, 


THE OBYECT CODE IS NAMED <FILEmNAME>>+ THE LISTING QUTPUT oF 
THE COMPILATION Is EQUATED 10 "LINE/<ySERCODE>* ON Ol gke 
THE. "#* LISTING" VERB MAY BE USED To LIST THE SYNTAX ERRORS» 


‘* COMPILE <FIUE*NAME> <COMPILER> 


are 


 CgMpILES THE gpEy FILE USIyG THE SpecIFIED coMpILeRs 
EXAMPLES? 


. §700!* COMPILE OBYECT/CODE+ 
“WALT eee : 


A79%* COMPILE TEST/OBYEC] EZTRANC 


QUEUEDC 1),WAIT... 


i _ 


IN THE LAST EXAMPLE» THE "EZTRAN” COMPILER CEZTRAN, 


DISK? WILL pe USepe IF THE FILE IS NOT IN ORDER» IT WILL ge 
. REQRDERED. Since THIS IS A LonG OPERATION THE ySER GETS a 
 MWATT" MESSAGE, THE "QyEUED™ MESSAGE  NDICATES THAT ANOTHER 
"USERS (anG QPERATION IS BEI\G PROCESSED AyD THAT THIS LonG:...- 


OPERATION IS QUEUEO UNTIL THE OTKER Is DONE. THE ti" 


INDI caATES THAT THIS IS THE FIRST REQUEST IN THE QUEUE. 


ao 


fs 


eeeeveeeveevneeeeeeee eo eee ee 
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RABE ER peel Ses a @ ies ofits 
OUTPUT GF THE COMPILATION (LISTING) 


Pe ee ee eee ee es oe ee ee ee 


; THE’ ~IstiInG FILE OF JHE COMPILER Is EQyATED: 70 LINES. 
-USERCODE> ON ODySK, THE pyLE MAY BE ACCESSED BY THE USE OF THE 
LISTING VERB? 


* LISTING <FILE*™TYPE> <S>s* <L>s <U> 


oe Se ee ee ee ee eee 


freee i os LISTS i THE SEQUENCE NUMBERS RELATED TO SEGMENT <S> FROM 
RELATIVE ADDRESS <L> TO RELATIVE ADDRESS <U>e <FILE"TYPE> 

US calGol, XalGols B6ASICe CoBole oR FORTRAN AND INDICATES 
WHICH COMPILER CREATED THE LISTING FILE "LINE/<USERCODE>",. 

_ CTHIS: FILE IS qUTOMATICALLY GENERATED BY THE COMPILE VERB). 


* LISTING <FILE*TYPE> ERRORS 


Te ee ee ee ee ee 2 | 


er ae 


4). QESTS THE SYyTAX ERRORS oF YOUR LAST ComPILATIONe | 


* LISTING 


nth 8 we om me om 


bous saw. Go 5 CPRINTS! THE LINE FILE oF YoUR LAST ComPILATION ON THE 
Sis PRINTER, 
456 ' ee a 
EXAMPLES 
: eee i 
ot® LISTING ALGOQL 5% 25% 35¢ 
WALT eee SEGMENT = 53 fg 5 
»- #300t REL. ADDRe = 
44003 RELe ADDR. = 296 


' "92008 REL, ADDR, 
9300% REL. ADDRe = 35, 


“te LISTING ALGOL ERRORS* 
‘ WATT ees 
.\ 78008ERROR 100 I, 


a ae 
89003* LISTINGe 
.» 89003 
_ | ae 
aN 


oR byt a, ! i tae PAGE 


FILE ZIPPED AS AN "EXECUTE" DECK (ZIP) 


ee ee a ee eee ee ee ee | 


Pes y 


1. “IMPLEMENT THE. B5500 ZIP FUNCTIGN THROUGH R/C» USE THE 


Corba wiee ae 


>» STATEMENT, 


ZIP i 


ete Te ; THIS. CONSTRUCT ZIPs THE OPENED FILE AFTER Ir LINKS ALL 
THE CONTROL cagDS aS INDIcaTED BY “Pe SEE THE alGOL 


REFERENCE MANUAL FOR A DESCRIPTION OF THE wzIp with FILE-I0" 


+ ZIP <FILE"NAME> 


Ce ee ee ee ee 2) 


Se 


COPI-¢Ss THE OPeNeD FIle CREATING <pILe™NAMe> AND ZIPS 


Hy <FILE NAME> + NOTE THIS wZIP# CONSTRUCT OGES NOT DESTROY THE 
~. OPEN FILE, AS DOES THE FIRST FORM, 


© (EXAMPLES i. 476 


~$COLUMN ON "OHS COLUMN 73¢ 
tOPEN MAKE MANUAL DATA NEWS %XEXECUTE XREF /JONE Set 
2O08SSFILE DISK = TEacHER/0000094,¢ 
-300:%% DATA CARD. 
40088 DISK SIX pOCONLY pQcUMENT FINaLe 
8009899999999" 
roo BOORLS END ye 
| 7OO0tx ZIP TEMP/NAMES 
WAIT, 
ae TFOOE 
1 


. t- ¥ fe. 
THIS. EX @MPLE ILLUSTRaTeES HOW TO CREATE a CONTROL DECK 


ANO cINITIATE ITS EXECUTIONe THE DECK wAS SAVED CUNDER THE. 

~ NAME> "MAKE/MANUAL™) SINCE THE ZIP CONSTRUCT INCLUDED THE... 
» DUMMY FILE osTEMP/NAME™. NOTE THAT THE ABOVE DECK WILL 
- CREATE AN R/C USERS MANUALS) 


‘g* OPEN MAKE/MANUAL DATAS*® ZIP T/N3* CLOSES 
WATT aoe 
: ~ 5s 


4 z 
in 
ae 
as 
/_ 3. 
aa 
6. . 
» 
ms 
mF 
or 8 
i f 
>t 
of 
Zi 
a) 
o 4 
i or 
Ze 
<< et 
re 
ar 
ccf 
oe 5 
at 
ul o 
= ae = = = 
a 


eo ¢@© @ @—6Uce6mUCUC OHmhC WMC<‘i OUCOftmUC OlUCU OU OUhUCUC OhmUC OhmUC OmUC UC UC COlUCOMlmUC HC OCD 


NG 

Boas SENS ay 
RECORD COPYING COITTO) 
ae ee ee ee es 


ro ' 
| pe 


 RECQRDS » MAY BE CoPIED FRom onE PLACE To ANOTHER WITHIN A: 


FILE BY THE CONSTRUCT? 
f ee LA 


* DITTO <M> 


ee eee j 


COPIES CARD IMAGE <M> AS THE NEXT RECORD> 


* DITTO <M>s <N> 


ae) a te an i om Cl A Maat 
COPIES THE CARD IMAGES <M> TO <N> Ag THE NEXT RECORDS. 


* DITTO OVERITE ON 


e-em eam me 


(ou *\DITTO QVERITE OFF 


Oe 2 ee ee 2 ee 


DITTO OVERITE 


oF oe ee ee ee 


SyocTF: THE prTTO OVERITE IS OFF AND aN EXISTING RecORp IS 
ABOUT To BE OQyERWRITTEN, THE OITTQ TERMINATES wITH an 
"OQVER;TE OFF" MESSAGE, CrT yS INITIALLY OFF,) THE ABOVE 
mam eG COMMANDOS aRE USED To SET THE gpTlon AnD Tg PRIAT ITS CURRENT 
io. . SETTINGe :Its sETTING MAY BE REVERSED FOR ONE COMMAND By 
PREFIXING THE DITTO WITH A "es CEeGe ex"DITTO 1050,) 


* DITTO <M> MOVE 


-~ me mm mo ble ela) 


* DITTO <M>s <N> MOVE 


- meeeonmm mm eo "om io on 


TRE MOVE OPTIONes MOVES RECORDS <M> THRU <N> TO THE 


re PAGE 26 


@®eeeeeeee#e#ee288s @©8 @ @ eeene0ee 
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ORE Se * akg Be . 
— CURRENT LOCATION. THIS OPTION IS VERY FAST, BUT OVERITING 
* TS-NGT ALLOWED. 


EXAMPLES: 


500% DITTO 200,300¢ 
(FOO@t™* LISTe : Bel GE ORME Go BG +g : ee 
F fO0RONE eam sk OL AE ia IT 
- '2008TWO RT SB eleke sh es 
\ 3008THREE = cee ae 
“J AQOtFOUR 
500+ TWO Bide ae 
6008THREE ©, Leas Seth aoe 
-; FOO8* DITTO 2002300 MOVES *LISTe 
~ LOO8ONE © PP hs eG a BEE fe ant 
~>of#QOO8FOUR 
50g: Two 
6O00%THREE 
7OC8TWO 
-°BOOITHREE 
9008 


oo 


@eoeeeee#eeeee#8ee0ee0e80 0880 808 @ @ @ @ 


COPYING EXTERNAL FILES (COPY) 5 aitetsacon eee 


ane ee 7 oe a wo Sl cel eal 7 on ae Oe 


“ai ~WHOLE QR PARTIA, EXTERNA, FILES mAY BE COPIED IjTo THE. .:: Be Py ogy 
» CURRENTLY OPENED FILE BY THE CONSTRUCTS? ete tid. ele 


\ 


x. COPY <FILE*NAME> 


¥ £ 
\ 3 : a icf eee oa : : - 4 : ae podot 
% ‘ } Put i ae eee pee ee) a 


COPY <FILE=*NAME> <M> 


RO Rn ae ee 


1 4 


* COPY <FILE*NAME> <M?, <N> 


a oe on 1 gm OE GH OD ee OP Re On eee Mt. mam om 7 om 


* COPY <FILE=NaME> MERGE 


Lad bd Mad io Om a we oe oe ee a om a a 


TRE COPY VERB COPIES RECORDS FROM ANOTHER FILE (<FILE= 
NAME>), 


THE FIRST FORM COPIES THE wHOLE FILE. THE SECOND FORM 
COPJES THE <M>eTH RECORD (WHERE THE FyRsST RECORD OF <FILE= 
NAME> IS 1» THE SECOND RECORD IS 2 THE THIRD IS 3 ETCe). 
THE THIRD FORM COPIES THE <M>=TH THROUGH THE <N>=TH RECORDS. 
THE LAST FORM USES THE SEQUENCE NUMBERS OF THE reECcORDS OF 
<FILE=NAME> TO DETERMINE THEIR POsSIyION IN THE OPEN FILE® 


* COPY OVERITE ON 


— ROR Ha on 


* COPY OVERITE OFF 


bal nam 7 om mn me oe a a 


» COPY QVERITE 


oo mw oe om re oe OF 


IF THE cOPY OVERITE IS OFF AND AN EXISTING RECORD IS 
ABOUT TO BE OVERWRITTEN» THE COPY TERMINATES WITH AN 
"OVERITE OFF" MESSAGE. CIy IS INITIALLY OFF) THE ABOVE 


ert PAGE: 29° 
COMMANDS ARE USED To SET THE gPTION AND To PRINT ITS CURRENT 


SETTING. Iys s&tTInG MAY BE REVERSED FOR. ONE COMMAND By 


PREFIXING THE COPY WITH A “se (CEeGe *"COPY A/B 10250.) 
co 


qa OPEN SOURCE/MARK7 ALGOL NEWS : 2 are 
mm 4 0Ote COPY SOQURCE/MARK6¢~ ae Ce ee ee: : Suk: 
; “WATT eae al 
89008 


ne : 500%* COPY LIBRARY/FYILE 345% 3684. '-. 
“WATT eee . _ 
28008 ob ay by, ee ee 


“10utcK PATGH/FILE¢ 


47a 00000050 ve 


2B 00000150 
3tcC 00000200 
43x 00000175 
poe 5#¥ 00000250 
NE 6?Z 00000250 
- SOPEN MY/SOURCE ALGOL OLDe 
- 400%* cOPY OVERITE ON;*cOPY PATCH/FILE MERGEe 
+ MAOOte Liste 
SOsA 
10084 
15038 
engens 4752X 
ie 200%¢ . ics PhS 
aia 2508Z : 
30083 
400! 


@oeeoe#e#ee0e08e88f#eeeee#e#ee#ee#ee#e#e#eee@ 
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INTRA*RECORD EDITING CINLINE) 


= i on FF OD a Oe Oe ee ee a mo oe on a en ee 


RECORDS MAY BE EDITED BY USE OF THE t* INL INE® CONSTRUCTS 
DESCRIBED In THE NEXT PARAGRAPHS, 


* INLINE <M> 


2 ee 


* INLINE 


* INLINE <Me <EOITT CHR> 


= -— mo = om oF ae Oe = on 


* INLINE <EDIT CHR> 


THIS SETS Up LINE <m> FOR INLINE EDITINGe IF THE SEQUENCE 
NUMBER <M> Is NOT INCLUDED wITH THE COMMAND, THE PREVIOUS RECORD 
TS USED AND THE INITIAL PRINTING oF IT IS SUPPRESSED. 


* INLINE ECHO ON 


~~ a a le 


* INLINE ECHO OFF 


-— RM | 


* INLINE ECHO 


= 1 Oo a 


THE MODIFIED RECORD WILL BE TYPED ON THE TELETYPE IF THE 
INLINE ECHO IS ON. CIT IS INITIALLY ONe) THE apOVE COMMaNDS aRE 
USED 70 SET THE OPTION AND TO PRINT ITS CURRENT SETTINGe ITS 
SETTING MAY Be REVERSED FOR ONE COMMAND BY PREFIXING THe INLINE 
WITH A =e CEeGe * *# INLINE +36) 


TO MODIFY A PORTION OF A RECORD CCARD IMAGE) USE THE "* 
INLINE” VERB. R/c PRINTS THE RECORD NUMBER AND THE LINEs THEN 
GIVES A CARRIAGE RETURN ANO LINE FEED. It NEXT SPACES THE PRINT 


®eeeeeeeeweeenwneweeeeeeeee 6 
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Babk ©CON THE NEW. LINE) DIRECTLY BELOW THE FIRST cHaRacTeR 
POSITION OF THE OLD LINE» ABOVE. THE USER SPACES THE PRINT BALL 
TO THe PROPER POSITION AND ACCOMPLISHES THe FOLLOWING ACTIONSS 


Tt? ‘TySERT A STRInG* TYPE THE LETTER me FOLLOWED = ME 


STRING ‘AND A Wem, 
5 : 4 eo ae g. Besse ; eu 
c hoe DeLeTeE A STRING» USe THE LETTER "0" FOLLOWED BY 
pce a THE CHARACTERS To BE ‘DELETED AND THEN A Nt tte 


e 6 REPLACE A STRINGs USE THE LETTER nRe FOLLOWED BY THE 
NeW STRING Of THe SaME LENGTH AND A st 


‘IF THE MODIFICATION IS To BE ODoNE IN THE FIRST 


CHARACTER, THEN INCLUDE THE "I", "Rs OR wD” WITH THE INLINE 


COMMAND, 


“CEXAMPLES 8° 


TO INSERT CHARACTERS INTO A RECORD: 


1 ee ee a Oe ee ee ee ee ee ee ee ey 


JOO *INLINE 30500¢ 
“30500: ABCDEF GHIUK 
000305008 112345¢ 
» 1305008 ABC12345DEFGHIJK 


TO:DELETE CHARACTERS FROM a RECORDS | = et 


oO | ee CO ee em 


Hess Asc 5 PPOOL*INEINE 677006 
oo #e oes 6 677002 ABCOEFGHI JKLMNOP 
00067700: D m 
677002 ABHIJKLMNOP 


i LPO, OR i hee 
‘TO. REPLACE CHARACTERS IN A RECORD? 


heen ee ae wea oF ee ee ee eee cee 


600%« (INLINE 5516 
- i. S5L¢ABCOEFGHIJKLMNOPQRST 
id - + 000005513R12345¢ 
ee. %y - * S8L8A12345GHI YKLMNOPORST 


er ee : fog a pb? eqs 


ae 2 ye 8 


¥ 
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a Clee 


‘TO MODIFY A RECORD BEGINNING WITH ITS FIRST CHARACTER? | 


eR tk el a Rk i ldo tokio ed 


OQO0G700T*INLINE 70890 Ot 
-  7O800sABCDEFGHIJKLM 
“000708003 « 

 POBCOLDEFGHIJKLM 

~ 70900%* INLINE DF © 

— TO8OOSEFGHIVKLM 


4 


> THE "RY AND "1" FORMS OF THIS LATTER CONSTRUCT OPERATE 


 INSA SIMILAR FASHION 


yous ‘ 
i 
‘ i 
& ab 
a 
iy 
- tt 


@®e5o0ue5se5oeeeteeeee#8e8eeeeee8eee®@ 
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STRINGS) 

or hea N 
: ae cans FOR THE OccURRENcE Of A STRING BY USE OF THE "* 
SCANW AND =#- CHANGE" VERBS« IN THIS APPLICATION | THE FoLLoWing 
EEE UND EON: OF "STRING" APPLIES: 


“4STRING? tis <Lert> <TEXTD <RIGHT> <cOLUMN RaNGe> 


Wee Mee SLEFT> $35 "4 C / — Fe 
oo <RIGHT> #22 "/ 2) 4 Ds o 
PANE. PSs <TEXT> &8= SANY STRING OF ‘CHARACTERS : 
NN EXCLUDING THE <RIGHT> CORRESPONDING 
ee Nese To THE <LEFT> CHARACTER USED.2 


<COLUMN RANGE> $82 SEMPTY2 / 
@<INTEGER> / @<INTEGERD@<INTEGER? |. 


IF+ THE STRING IS DELIMITED By PERIODS, AN AODED CHECK WILL 


'YBE MADE “BEFORE OETERMINING A MATCHED STRING, THIS CHECK INSURES 
THAT THE MATCHED STRING WILL BE IMMEDIATELY PRECEEDED AnD 


FOLLOWED “BY A NON*ALPHANUMERIC <CHARACTER, HENCE (THIS FORM SHOULD 


“BE USED FOR IDENTIFIERS> 


IF .THE <COLUMN HANGE> IS SPECIFIED, A MATCH wILL BE FOUND 


- ONLY IF THE peno) CHARACTER APPEARS es ne BANGE 


ey iene i fe 
RPT, ugh, 22 MEME DNRS 
oy Fe ween —_ 
om t= IMAGE (5) 37@15"25 ee: 


@ee52sexee8e8e80e08e ee @ | eo @ @0@08@808086hCéi+7:36hé~<2SMmh~< OS ee 
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CHANGING THE OCCURRENCE OF A STRING CCRANGE) 


ne ae Oe nee ee mae CO tama mm - "mw a om me oF oe ge Oe on Fe 


ENTIRE STRINGS MAY BE CHANGED IN A FILE BY USE OF THE "* 
CHANGE" VERB, 


* CHANGE <STRING> TO <STRING> 


— oo ee ee ee | 


SCANS THE CURRENT RECORD REPLACING EVERY GCCURRENCE OF 
THE FIRST STRING WITH THE SECONDe IF NO "<STRING> TO 
<STRING>" APPEARS THE PREVIQUSLY USED STRINGS WILL BE USED 
AGAIN, 


* CHANGE <M> <STRING> TO <STRING> 


AS ABOVEs FOR THE RECORD WITH SEQUENCE NUMBER <Moe 


* CHANGE <Mas». <N> <STRING> TO «<STRING> 


oO ee on oe mm 0) om ae oe ws =o 8 an OR ae a eae 


AS ABOVE, FOR ALL RECORDS FROM SEQUENCE NUMBER <M> TO 
<N>, 


+ 


CHANGE ECHO ON 


* CHANGE ECHO OFF 


* CHANGE ECHO 


-— he wee 


THE MODIFIED RECORDS wILy, BE TYPED ON THE TELETYPE IF 
THE CHANGE ECHO IS ONe CIT IS INITIALLY OFF.) THE ABOVE 
COMMANOS ARE USED To SET THE oPTION AND To PRINT ITS CURRENT 
VALUE. ITS SETTING MAY BE REVERSED FOR A COMMAND BY 
PREFIXING THE CHANGE WITH A =e CEeGe *=CHANGE "xX" To "2",) 


ee ee ee ee er ee | e °o ee ® @@e@6UmhmC—<Ci )hWwC‘<(‘ OwWititeké ltlhlUmetthlU8 


PAGE 


EXAMPLES: 


oss as ss 000042008 CHANGE "REMOTE/ CARD” TO "R/c™F*CHANGE 5300¢ 


00005300: 
870086 "CHANGE "1 oTWX,@25730 To “TELETYPWRITER"© 
- g6oo: THE OUPUuT IS TYPED ON THE TELETYPWRITER IF 
00008600! > res 


450t* CHANGE 2322 448 “IMAGE LIJ" TO (CZ CJ])e 


af WATT eee 
» 000004483. | 


-A7000%* CHANGE 2200t6 " “"@l ae 


000028008» CHANGE #143 "% "@1 MHe 
: 000032003 


@®eeeeee#eeeeeeee8e¢08e0ee80eeee8e6°® 


a 


SCANNING 


smn an gn OE om Om 


a 


FOR OCCURRENCE OF A STRING CSCAN) 


ee oe ga OR on on a F 


ae oe Sie 
* SCAN <STRING?> Se PPE 
ee ee ee ee ee Tee aS Gis ss j 
fey! 


- (SCANS: THE FILE FRom THE CURRENT SEQUENCE NUMBER To THE 


END OF THE FILE OR UNTIL THE FIRS7 OCCURRENCE OF <STRINGde 


If «THe STRING:IS FOUND THE RecORp cONTaINING IT IS TYPED ON 


THE TELE TYPEWRITER. IF <srRING> Is ACTUALLY TWO <sTRINGOs 


THe SCAN STOPS AT THe FIRST OCCURRENCE Of EITHER <STRING>« 


IF Na <STRING> (APPEARS WITH THE CoMMAND, IT IS ASSUMED Ta BE 


soTHE - SAME «STRING> AS IN TKE LAST "* SCAN" GR "* CHANGE" 
> COMMANDs IF THE SCAN VERB IS pREFIXED BY A ws THE SCAN WILL 


» BE FOR RECORDS NOT CONTAINING THE <STRING>s 


' NUMBER <Mo, 


» RecOR. IN WHICH <STRING? Occurs Is TYPED ON THE 
-» TELETYPEWRITERSs 


'* SCAN <M> i <STRING> 


ee ee ee ee 


(8 


= AS ABOVEs EXCEPT THAT THE SCAN BEGINS AT SEQUENCE 
j j 


-#® SCAN) <M>, <N> <STRING> 


ee ee ee ee) 


(gS apOVes EXCEPT THaT THE ScaNNING STOPS aFTER SEQUENCE 


NUMBER <N>¢ 


pod 


* SCAN <FILE*NAMED> <STRING> 


eee eee ees 
THE FILE <FILE#NAME> Is SCANNED FOR <STRINGa>e EVERY 


t 


— ®OSCAN <FILE*NAME> <M> <STRING> 


ee ee ee eee | 


“AS ABOVE,» EXCEPT. THE SCAN BEGINS AT RECORD NUMBER <M>, 


po BO 


WEY ee : ce] Ch ER. BP hou UP ee Say Los oe 
oe on PAGE 37 inde AREER GEE, ale A ee 
ead, ae E ae os ae : ee eae i pa Sens 
W OSCAN CeCFILE*NAME> <M>s <N> <STRING> ; me 


ar ee er? amen Fee Beem ee : se i rout ee 


Ns 


\ AS ABOVEs EXCEPT THAT THE SCAN STOPS AFTER THE <No=TH 
RECORD, 


° EXAMPLES? 


Sabu 9 SCAN LIBRARY/FILE "TABLE OF CONTENTS"@3¢ ile ee a eee o 938 
Peo eds WAIT eee ee ee this ; 
ae ee : Rg 13% TABLE OF CONTENTS eon READDATA ae bd Seki i Deo a Ean dont 
9 (9g 8% TABLE OF CONTENTS «ee READDATA Cee eS Ce hee ete 
. 993% TABLE OF CONTENTS «gee WRITEDATA 
2731%-TABLE OF CONTENTS eee WRITEDATA 
“874% TABLE OF CONTNETS «es DATE 
°285%% TABLE OF CONTENTS eee DATE 


7k 1 . $@7OQt*- SCAN 1 ,PRINTER, ,LINE,« 
WALT eee AS PARP BY ee Wee 8 De WS eo : Loo ee ae eer 
oS Loot FILE PRINTER‘1 (2, 45) 03 ALS ee Oe Gee ee Beg EE ah) EN ee 
ool EOL de SCANe 
WATT gee epee LE foes oe Bo, eo tie ee GaN 
8 BhOO? WRITE CLINE® Fe LISTA) Foi Can: aN ae ee ea ee ee ie 
2401%% SCANe ee i ia a Sk a eC. 
“WAIT eee a. BS 7 oe 
EOF NO STRING Poe: ed EPO 1G aren. RS on 
87008 ee en 


fos 


@®eeeeeeeeeeeeese#eeee®eeeeee® 


: RECORDS may BE FoRMATED BY THE FOLLOWING CONSTRUCTS! 


PREFIXING THE EDIT WITH A ss (EeGe *= EDIT 200¢800t20) 
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1 Poe fe 


“RECORD FORMATING CEDI1) 


fe eo ee ae a ee A Se om 


# EDIT <M>y <N>t <P> 


oe ee ee eee ee ee 


EDITS EACH RECORD FRomM SEQUENCE NUMBER <m> To <n> 


~ ACCORDING TO THE FORMAT RECORD with SEQUENCE NUMBER <Fo« 


i : 4 NA Te 


oe RESULT OF THE EDIT ~ IS THAT EACH RECORD BECOMES 


 Ipenticay WITH THE FORMAT RECORD EXCEPT WHERE THERE IS a win 
OR: *"@t CHARACTER IN FORMAT RECORDe EACH wen Is REPLACED By «. . 
— THE NEXT CHARACTER OF THE INPUT RECORDe EACH "#" SKIPS “THE © 

- NEXT CHARACTER OF THE INPUT RECORDe - : 


' -* ‘EQTT ECHO ON 


Coe ee 2 ee | 


«| corr ‘ECHO OFF 


3 oe wre Oe 


eee ierica 


4 CEDIT ECHO 


a 


yorThe MOpIFlep RecORpS WILL ge TYPep ON THE TELETYPE IF 


_ THE. EQ2Rr ECHO Is ONe (Ir Is INITIALLY OF Fe) THE ABOVE. «> 
, COMMANDS . ABE. USED TO SET THe ECHO AND TO PRINT ITS CURRENT 


SETTING. © IT. SETTING MAy BE REVERSED FOR A COMMAND By 


wT 


EXAMPLES 


— - $0024234567890¢ 


200TABCDEFGHIUKe 
3008 6@e,,,@@, THIS IS THE WAY THE LINE ENDS ease erees 
HOOt* PEDIT 100% 2002300¢ 

‘2008 = 123554454 THIS IS THE WAY THE LINE ENDS» +4690 


5 2008" ABCeseDEs THIS Is THE WAY THE LINE: END Ses oF LUK e 


SNE dees a 


Lor, Ve das ra ; beg igh 8 i 
YN oe sae 


fox 


& 


@®eeeee%eeeee#ee#eee#eee80 08@e0 8@ @ ee e = 
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RESEQUENCING RECORD NUMBERS (RESEQ) 


: OO FF OD ge oe OH: en a om ae De De 


| FILE. sEQyENCE NyMBERS MAY BE MODIFIED BY THE FOLLOWING 
-=@ONSTRUCTS? 


‘@RESEQ) | ote 


- RESEQUENCES THE FILE gY THE CURRENT INCREMENT COUNTER, 


* RESEQ <I> 
mm i moe SY es 2 | 


SETS THE@INCREMENT COUNTER TO <I> AND RESEQUENCES. 


-* RESEQ <M>s <N> 


|| RESEQUENCES THE SEQUENCE NUMgEeRS <M> THRU <N> gY THE.” 


— CyRRENT INCREMENT COyNTERe THE FIRST SEQUENCE NUMBER IS <M>s 


* RESEQ <M>» <N>» <K> 


ee ee ee ee ee, 2 ee 2) 


-. WS ABOVE, EXCEPT THAT THE FIRST SEQUENCE NUMBER IS <K>. 


whos ie -RESEQ <M>e <¢N>» <K>se <I> 
i ee AR FO m= mo om ne mn or me = 
AS ABOVEs EXCEPT THE INCREMENT Ig sE7 TO <I> FIRSTe 
EXAMPLES! 


| gO5te RESEQe 
(323% RESEQ 100¢ 
132300! 
ey 


® @ @ @® @® @ @® @® @® @ ®@6 


Nels 


i : 


DELETION OF: RECORDS (DELETE) 


aa an A A oe ee a ae ow ae ee oe a oe 


RECORDS MAY BE OELETED FROM A FILE BY THE FOLLOWING 
- .CONSTRUCTS# . 


* DELETE <M> 


>) DELETES CARD IMAGE <M>, 


* DELETE <M>». <N> 


a ee 


\ DELETES CARD IMAGES <M> THROUGH <N>. 


+ DELETE 


-. DELETES THE CURRENT CARD. 
EXAMPLES: 
3400%* pELETE 33006 


3300% 


2100%* DELETE 1500 + 33% LIST 140022000¢ 
- 1400%- BEGIN 
19008. Go Ta ERROR 3 
- 20@0% END 3 


E - BOR oe 21008 


21007* 2000¢ 

20802 END 3 
OOOOZ000t DELETES 
26008 


poe ps 


44 
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OPERATIONAL COMMANDS 
| sie se MP oie am a we eS mm 


| 


a a a ar ary : are — ‘ nfe 
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SET THE INCREMENT COUNTER CINC) 
: THE | INCREMENT COUNTER MAY BE SET BY THE CONSTRUCT "* INC", 

-* INC: <N> . | Be ak eles 
oda ame 


oe CES CONSTRUCT SETS THE INCREMENT COUNTER TO <N>, 


* >INC a , 


SE od 


THIS CONSTRUCT PRINTS THe CURRENT VALUE. 


pee pe 


. EXAMPLES? 


1O03BEGINe . . 
200% INTEGER Tevde K-de tt tee Lae 
300%* INC 3¢ 

300% BOOLEAN B se 

303% REAL X» Ye Z se 

3063 


e®eeeeeee¢ee ee ee ® @ @ @ eo ee 8@ @ @ 
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NON*"TELETYPEWRITER CHARACTERS (PERCENT) ei Benet ee 


CD tiea tne teal adil Reda R ant A Misti Moke titel teats teddldatieted oe) 


SPECIAL CHARACTERS on THE 85500 BUT NoT AVAILABLE ON THE ~ | 


“ -TELETYPEWRITER KEYBOARD CINCLYDING HE QyESTION MARK 2") MAY BE 
“ -TNSERTED » IyTg R/C MAI yTAI\ED FILES BY THE “* pERCENT™ ConSTRUCT. 


eee 


* PERCENT ON 


ee ee | 


* 


PERCENT OFF 


* PERCENT 


oe an OO oe 


THE * PERCENT" CONSTRUCTS ALLOW A USER TO INPUT THE 
SPECIAL RESERVED CHARACTERS (CleE.s LEFT*ARROWs NEGs LSS» 
GEQ, GTR» LE@s AND 7). THE ABOVE COMMANDS ARE USED TO SET 
THE OPTION AND TO PRINT ITS CURRENT SETTING. WHEN THE 
PERCENT OPTION IS ON, INPUT FROM THE TELETYPEWRITER IS 
SCANNED FOR SPECIAL CHARACTER PAIRSe IF A PAIR Ig FOuND If 
TS REPLACED BY THE SIyG_E CHARACTER AS Fo. .oWs: | 


CHARACTER PAIR INTERNAL CHARACTER 
ao ¢ (LEFT ARROW) 
ad # (NEQ) 
% < (LSS) 
4) > (GTR) 
ae $ (LEQ) 
“1 2 (GEQ) 
&% ? CQUESTION MARK) ; 
Ze * (STAR) (1ST CHR ONLY) 


— A "4" FOLLOWED BY ANY OTHER CHARACTER REMAINS AS [Se 
WHEN THE PERCENT OPTION IS ONs THE TRANSLATION TAKES PLACE 
IMMEDIATELY > HENCE ONLY ONE BACKSPACE CSHIFT 7) IS NEEDED, 


EXAMPLES: 


100% PERCENT OFFe 


eecececeoeeeeeeecee eee wee ee 
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“Si LOOS#BEE COMPILE eos &= &C RA 
“. (200%* PERCENT QNe 
-:2Q002%% COMPILE wae 45 &C aAe 
.: 3008* Lyste 
LOOhREY COMPILE aoe Ye 4¥¢ RA 
-. 9008? COMPILE «ae * < aA 
7 5 3008 


ae a ; PROD MEH Ap a, thie A abe eS 
NOTE THAT ON THE TELETYPWRITER THE CHARACTERS "2" AND 


"<" WOULD HAVE BEEN TYPED AS A "S$", 


3 

i ; 

4 
re 
i 

i 
i 
: ed 
{ 
ae) 
g 1g Tate] 

< 


ecoeceoeeoeoeeeceo eee eee ee eee 


R/C VERB RENAMING CREPLACE) 


mam aw mm om So eo 


R/c VeRBS MAY Be REPLACED BY OTHER WORDS 
CONSTRUCT "* REPLACE", 


® REPLACE <A>#<B> 


- eRe ta a me 7 oF om 


THE REPLACE VERB RENAMES THE VERB <A> WITH THE WORD <B>. 


EXAMPLES: 


t* REPLACE LISTSTYPE« 
t* REPLACE INLINE? INE 
t* REPLACE REPLACE 3Re 
t* R CHANGEtCe 

.* 


THROUGH THE 


a 


@®ee“eeeee#eeeee0e0 80 80 @ @ @ @ @ 8 
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AUTOMATIC FERST CHARACTER PLACEMENT (TAB) 


ee ee ee ee ee ee TT 


BUT be i R/C. “USERS MAY INITIALLY CAUTOMATICALLY) -PRE*POSITION THE 
ea BALL ob) ANY COLUMN BY USE OF ual "¥ eae CONSTRUCT « 
he 


i 
+ TAB -<N> 
ee 2 ee | : d Bopp Ade vg POA eS eecise 
é } bs eM pA a Tle: 


‘SETS UPR AUTOMATIC INDENTING TO POSITION <N>e WHERE 4 


LEQ’ <N> LEQ 54, 


* TAB 4#<N> A 


oe 2. ee a es ce ees 


TAB #<N> 


* 


ee ih eRe gee a 


- qpJUSTS THE Tap aMOUNT gY THE VaLUE OF <N>, 


“TAB ON 


Fem me 


* 


-* TAB OFF _ a 
a oe a mo = 


ow OT ABS. 
er tS ee _ 
BO Ee Awe oe fie Cee . i j Af; 
bad Sain te sq HE AB “oP TION PERMITS tHE ySER (By SETTING. THE OPTION 
Foe OREO r9 SURPRESS THE TAB SPACING ON THE TELETYPEWRITER, THE 


AUTOMATIC. INDENTING STILL APPLIES To THE RECORDS CREATED. 


«* THE LAST CONSTRUCT PRINTS BOTH THE sE€TTING OF THE OPTION AND 
* THE TAB VALUE. '— 


ee weg oy re Hg 
“EXAMPLE! 
a rr ae how a f ad 7 : { 


AA Re i cas a i wes 


Fs 45 008H TAB Se 


Foss owe 48608 (1 BEGGING 


wok oe i. petty 4 i hs 


& 


@®eeeeeeeeeeeee?eee#e#eee0e80 e0 @ 
@®eeeeeesree&e#eee#eee# @® @ @ @ @ @ @ 


“H6Qgs * TAB+26¢ 
86008 K t= K + DELTAK fe we. 4 
“aT QQS * TAB = 23END fe a A a eS Vie Saree Ske 
48003 * TAB le CS Peas PEeee 2 a 
~ 48008 ESTE 


fo FA 8 fw IS AVE f06° 


Ste A : z \ 


Ae 4 peg \s 83 
SETTING THE SAVE FACTOR (SAVE) 
= _ I? i ; 
why THE’ SAVE FACTOR OF A DISK FILE IS THE NUMBER OF DAYS AFTER 
ITS” LaST -acceSS BEForRE IT WILL BE CONSIDERED EXPIRED. THE SAVE 
-FAGTOR' FOR A NEW USER IS SET AT 7 DAYSe IT MAY BE CHANGED BY? 


* SAVE <N> 


ee #8 SETS THE SAVE FACTOR AT <N> DAYS. 
ts * BME eee ie he dre alr 


(oe SAVE™ 


ee oe 


| PRINTS THE CURRENT VALUE OF THE SAVE FACTOR. 


i Sy 


@®eeeeeee%ee#e#s?8 © @0e 8@® @® @ @® @ @ @ @ 8 
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TABULATING CCOLUMN) 


Sewtnnmaaawa Pm Oe om ae OR my 


eereeeoeveeveenwneeeeenwnnnaennee 


* CBLUMN <OPTIONAL STRING> 


- om a oe 7 7 on oe a ee oe an eo 


* COLUMN ON <OPTIONAL STRING? 


ee ee en eee a 


* COLUMN OFF <OPTIGNAL STRING> 


= oe ME om ee tn ee oe 


* COLUMN <STP1> <STP2> <STp3> <STP4> <oPT, STRING? 


= a oe mo om a ay OO 1 om OF om 7 om me on mw oe me 7 a mm om on a me 


THE cOLUMN VERB IS USED TO SET UP COLUMN POSITIONS AND 
TNOIGATE wHAT CHARACTER IS THE COLUMN CHARACTER. THE FIRST 
FORM PRINTS THE CURRENT SETTINGS, THE SECOND AND THIRD 
FoRMS ARE USED To TURN THE OPTION ON OR OFFe THE FOURTH 
FORM sets UP FROM 1 TO g COLUMN POSITIONS, ANY FORM MAY SET 
THE COLUMN CHARACTER» 


WHEN THE OPTION IS ON» EACH OCCURENCE OF THE COLUMN 
CHARACTER IN AN INPUT RECORD CAUSES BLANKS TO BE INSERTED To 
THE NEXT HIGHER COLUMN POSITION. 


EXAMPLES 


sCOLUMN GN "#43 * COLUMN 10 20 253 COLUMNe 
COLUMN ®8N # 10 20 25 
sOPEN COLUMN/SHOW ALGOL NEWe 
LOOSABCHL234XYZHLIKE7B9e 
2008* LISTe 


1O0?F ABC 123 XYZ TWK#789 
500! 1294567890 42345678904 234567890. 
300! 


® @® @® @ @® *® @ @® ® 
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AUXILIARY COMMANDS 


a | 


© 


Ln ie MATL 
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MESSAGES TO*“OTHERS (MAIL) 


Ce El ee Re ee ee 


joa 


MESSAGES MAY BE RECEIVED FROMs AND SENT aor OyAERy USERS © ‘OF 


RIG: By THE ‘* MaIL™ VERB DESCRIBED BELOW, 
| 


ee on 


Cr or ars Pe 


| ‘THIS LISTS THE MaIL SENT TO YOUr aNp REMOVES IT FROM 
* - YOUR "MALL BOX". 


anes ce MAIL TO <USERCODE>! MESSAGE 


Zor ee 2 | Pee ee ee) ee 


Bo mw ke & oy 7 oa an ee | i ra 
far + 5 -THIg- ADDS YOUR MESSAGE TO JHE <YSERCODE>=§ MAILe 


a a a ee i a i : at i 


EXAMPLES S | 


Bor : SR) ob i Ai 42s 
so ote MATLE 
~  - (PLEASE SEE ME wHEN YOU GET A CRANCE*BALDWIN 


serine y | THERE WILL NOT BE ANY REMOTE TIME 10/24/70=SYSTEM 


otk MATE TO BALOWIN3MyY OFFICE= 10AM= FRIDAY 


SOR OK woe sy : sate as : te 


woe *€ H t 
7 + 
g t 
ce ik 
q 
i 
t 
| i 
4 
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eae 


HOW TO DETACH YOURSELF FROM R/C CEND) 


ee ee ee ee ee eee ee ee 


Poteet 
ee, . 


° THREE. METHODS aRE aVallaple TO THE USER WHEN He WISHES TO 
“MAKE AN EXIT FROM R/C3 


Ot 


s RUN. TO: HE NEX ys THE VALUES OF THE OPTIONS AND THE: EFFECTS  .-~ 
OF. THE ", REPLACE’ VERB. THE “ss END" CONSTRUCT DOES NOT... | 
GENERATE THIs LAsTING EFFECT. <x> DENOTES ANY ALPHANUMERIC. | 
CHARACTER STRING. = 


PAY 2% i 
-# END 


em me 


* END <X> Lio 


-e END. OS 


He ok a Va [Psadp 
THE FIRST CONSTRUCT -peTACHES THE USER FROM R/C, . 


“i \x-THE SECgnD ConSTRUCT CAUSES R/C To REMEMBER» FROM ONE 


sosTHE THIRD CONSTRUCT AxLOWS A USER Taq END WITHOUT 


« CLOSING THE OPEN FILEe R/C REMEMBERS THE FILE STRUCTURE FOR 


THe .NEXT TIMee HOWEVER THe FILE SHOULD NOT ge acceSSED BY 


ANY - OPHER PROGRAM UNTIL Ty Ig CLOSED YsSING RsC. THIs FORM 


CAN ope USep WHeN THe FILE EpITING IS SPLIT OVER MORE THAN 
ONE RUNNING OF R/C. 
EXAMPLES? 
t+ ENDe 
“GOOD BYE 


WATT oo eye 
(GOOD BYE ne 


La 


 g92t* END DSe 


— ©@000 BYE 


ee mo + | 


@eeeeeee#e#8e8ee8e8# #8 @e8eeee#ee®s 
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de Ca ee ; ie ees ; | ie 
LEARNING ABOUT R/C ON THE TELETYPWRITER CTEACH) 


[Lele hele tet take thd ae 1 en he ee eS ee eS ee 


THE. TEACH VERB ALLOWS A USER AT THE TELETYPWRITER to LEARN 
ApoUT baa bias VERBs AND SPECIFICALLY WHAT VERBs HE MAY USE, 


ea’. hae + TEACH 
5 é ee a 


~~ THIS LIsts THE VERBS THAT YOU ARE PERMITTED <TO- USE, 
x THE ast REFLECTS THE USE OF REPLACE ON ANY OF THE VERBS» 


+ TEACH <VERB> 
Cee Sf ee ee ee) 


ahs, 


oid TRIS LISTS THE SYNTAX AND SEMANTICS OF THE RESERVED 
c WORD- <VERB>, 


EXAMPLES: 


f* TEACH SAVE 


“<* SAVE $N$ 
SETS THE SAVE FACTOR AT $NS DAYS. 
—* SAVE 


TENTS THE “CURRENT VALUE OF THE SAVE FACTOR, 


12197086 TEACHe 
- THE VALID REQUESTS ARE? 


wv sss EXECUTE. “DITTO! COPY IN ZIP ¢ EOIT : 

» $a. SAVES J RESEQ@ = PUNCH PRINT DELETE CLOSE COMPILE 
sw COLUMN SCAN LISTING INC TAB PERCENT QUICK 
“Ses LEST. © OPEN MAIL TEACH REMOVE REPLACE END 


FOR SYNTAX OF A VERB CE.Ge TAB)» INPUTS 
| # TEACH VERBe CEeGe » TEACH TAB) 
» 219708 


-. NOTE THAT THE USE OF THE REPLACE VERB (FOR INLINE AND 
CHANGE) I5§ REFLECTED BY THE TEACH VERBs 


oe © @e¢ee8e@e¢8@¢¢e080806€C<C$GwWC(“‘c awUlCmcactwmUmclmUmCOmUC OOUCUCrTDLChUC<C UC OUrUC~CFC | 


i 2 7 = Q 
* Ae bee é : . & a _ 
4 a i 
st - : 
a 
‘cs : 
a : : 
< . E 
« a. ° oF “ 
7 ee 
me 
8 
i & 
>F 
as 
xt 
OF 
as 
= 
° - a 
. nee beens 
Bh gine Se - oe : a i : : 
* * 2 
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MACRO CEXECUTE) 


ee ee ee ‘ foe op et 


THE EXECUTE vERB GIVES R/C USERS A SIMPLE MACRO CAPABILITY. 


m3 be 


+ EXECUTE <SQURCE> <OPTIONAL PARAMETER LIST> ie 


-~ a 2 ee ee ee ee ee ee oe a a 


WES Ged ates ete ee eer ce Sie GW Ag 
con RECORDS ARE READ FROM THE <sQURCE> AND TREATED AS IF 


~. THEY caMe: FROM THE TELETYPE. HENCE® THEY MaY CONTAIN 
: COMMANDS. THE <OPTIONAL PARAMETER LIST>, IF PRESENT, 

_ CONTAINS FROM 0 TO 5 PARAMETERS ENCLOSED WyTH{N PARENTHESyS 
— ANDS MAY BE FOLLOWED BY A REPEAT FACTOR. EACH PARAMETER MAY 
~ BE.-A SEQUENCE NUMBER» A RELATIVE SEQUENCE NUMBER, A RECORD 


NUMBER2oA FILE PREFIX» a FILE SUFFIXe oR a VERBs WITHIN THE 


—SSOQURCE> THE PARAMETERS ARE REFERRED TO BY #1> #25 ever #56 
. THE. REPEAT FACTOR IS aN INTEGER FROM O TO 999 AND INDICATES 
- THES NUMBER oF flwES 7O PERFORM THE ExECuTree IF Ir IS nar 
> SPECIFIED, {T IS ASSUMED TO BE 4, ee eS ee 


* EXECUTE ECHO ON 


1 eo a mm 


* EXECUTE ECHO: OFF 


er a 


EXECUTE ECHO 


ee ee eee et 


> TF. THE EXECUTE ECHO IS gn, EACH RECORD WILL BE TyPED ON 
THE ‘TELETYPE BEFORE IT IS EXECUTEDe Iy IS INITIALLY OFF. 
IT. «MAY BE REVERSED FoR onE CommAND BY PREFIXING THE COMMAND 
BY-A ™, 


“EXECUTE LIBRARY = <NAME> 
me ew Oe we ee ee 2 


* 


* EXECUTE LIBRARY 


ee ee 


. gHE EXECUTE LIBRARY FACILITY ALLOWS THE ysER 10 


’ 
a fe 


Sr giesdn patie 


®eoeeoeoeeeeee#®eeeeeseeeeee#sees*e 
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PAGE 56 
ABBREVIATES 
a! UEXECUTE <FILE PREF IX>/<MACRO LIBRARY> eee aah, 
KTH. 


ONS USSF ILE PREFIX> Ply P2,P3,P4 


ee 


O\ THE <MACRO LIBRARY> JS "MACRO" AND ANY OTHER NAME 
DESIGNATED THRU THE * EXECUTE LIBRARY = <NAME> COMMAND» 


4 


\ 


a 


ott ‘OPEN CREATE/MACRO DATA NEWe 
oe 100%%* OPEN #1/#2 #3 NEWe 
‘s BQ08* CLOSES 
te CREATE MOVE/MACRO DATAe : 
“{O003%* DITTO #12#2 MOVE} ae 
2008 *ClOSEe 


“| "S 70088 °TEACH CCe 
4?* SCAN + 1 "S$S"O4 
- 2@te NELETE 1 
- 3:7 COMPILE SOME/JCOB FORTRAN, 
4%? DATA 
= StFILE 6=sFILE6s UNI 7 = PRINTER 
iy 57@808*13* TNC 1OF*EXECUTE CC/MACRO ()@2¢ 
WAIT ane 
2200288 JOB 
2900%$% IBJOB 
28408 


a ee ee ee er ee SS Se Sy a ir ae | 


ee ee er ee ee ee er ee ee ee ee ee ee | ee e ® @ ee 


APPENDIX A 


mm. em oF oe Oe Ll 


R/C SQURCE TAPE 


Or eee ee 2 ee | 


the Peet 


Ae 


R/C RESIDES ON A SYSTEM DUMP TAPE CONTAINING THE FILES 


de RCSY94/RON- ; 
2¢ TEACHER/0000094 


36 


XREF/ JONES 


THE FILES SHOULD BE LOADED USING THE CONTROL DECK? 


? LOAD FROM RC RCSY94/RON* TEACHER/O000094*XREF/JQNES, 


‘2 ENDe 


RCSY94/RON JS THE SOURCE frLE FOR 
SHOULD BE COMPILED WITH? 


Pad 9 0D 0 OD Dd 


3 


CQMPILE R/C WITH ALGOL FOR LIBRARY. 
ALGOL FILE TAPE = RCSY94/RON SERTAL, 
STACK = 256, 

CORE 5 2800, = 2500 + 100 x MAXUSERS, 
PRIORITY = 1. 

DATA 

TAPE 


END. 


dees 4 ; 


THE PROGRAM R/C, IT 


99999999 


rr er er er 2 ey a Sy i i Se ie | 


@®ee#eeee%ee#eeee8 °®@ o ® @ o e | eo @ e @ & e 


Aw 2 


WHEN PATCHES ARE IssutD THEY sHouLD BE PLACED AFTER’ A THE: ae 
TAPE® CARD AND R/C SHOULD BE RECOMPILED. 


ae ~ THE (MAXIMUM NUMBER OF USERS HANDLED BY R/C IS DEFINED To BE: 

2.3 IN. ae ae RON TO INCREASE THE NUMBER» A PATCH CARD MUST BE 

se ADDEDe is AS AN EXAMPLE» THE FOLLOWING CARD sHeND ee es ey Les 
' INCREASE ‘THE MAXIMUM NUMBER OF USERS TO(Se” 


DEFINE! MAXUSERS = 5%» MaXUSER sa# 3 90002500 


Gl THB: “guTpUT BUFFERS ARE DEFINED To .BE -56 CHARACTERS Ly 
RCSYQ4/RON» THEY MAY BE SET AT 2g CHARACTERS USING THE FOLLOWING 


PATCH CARDS? 


DEFINE CKRSPERBUFFER = 28%, ZX OR 56 00002600 
WORDSPERBUFFER = 5H, % GR 8 00002700 
WROSPERBUFFER = 4# ; % aR ? 00002800 


TEACHER/09000094 IS AN AUXILIARY FILE USED BY R/Ce IT IS 
ALSO THE USERS REFERENCE MANUAL. THE PROGRAM XREF/JONES IS 
PROVIDED FOR GENERATING ;HE REFERENCE MANYAL AND FOR yPDATING THE 
TeacHeR FIle. (NOTes ONLY THE OgdecT cOpe FOR XReF/JONES IS 
INCLUDED» THE SoURCE CAN BE OBTAINED THROUGH THE CUBE ,IBRARY ON 
REQUEST.) 


THE FoLLQWING DECK WILL pRgDUCE A USERS REFERENCE MANUALe 


EXECUTE XREF/JONESs 

FILE OySK = TEACHER/0000094, 
DATA CARD. 

DISK SIX DOCONLY DOCUMENT FINAL 


RPO 


99999999 
2 END. 


PATCHES TO R/C AND THE TEACHER FILE WILL BE ISSUEpH THRU CUBE. 
RATHER THAN PATCH DECKS, NEW SymBo_tc FILES WI__ BE INCLUDED on 
THE CyBE APE. JHE sEQyENCE NUMBERS wILL REMAIN THE sAME EXCEPyY 
IN THE PATCHED AREAs 


ee Ty 2 2 Tr Se Sr a a iar, | 


‘4 
z : 
& 
mo 
Gi 8 
2 t 
mo F 
=> & 
me)oe 
mam t 
eth & & 
orm t 
=f uf F 
Wt w # 
a enme 
a8 
“TF Oo? 
™~ &E as 
mre 
ne ; : Be Se bn: é oe a : Re en! ode S 
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CHANGE <STRING*1> TO <STRING#@=2> 

CHANGE <SEQ NUMBER> <STRING#1> TO <STRING=2> 

CHANGE <START SEQ NUMBER> <END SEQ NUMBER> <STRING@1> TO <STRING™2> 
CHANGE ECHO ON . 
CHANGE ECHO OFF 

CHANGE ECHO 

“CHANGE <STRING#*1i> TO <STRING=2> 

"CHANGE <SEq NUMBER> <STRING*1> TO <STRING=2> 

“CHANGE <START SEQ NUMBER> <END SEQ NUMBER> <STRING#=1> TO <STRING@#2> 
CLOSE 

COLUMN <OPTIONAL STRING> 

COLUMN ON <OPTIONAL STRING> 

COLUMN OFF <OPTIONAL STRING> 

COLUMN <STOP=1> <sTOP=o> <STOP=3> <STOP*q4> <OPTIGANL STRING> 
CoMPILE <QBJECT FILE"NAME> 

COMPILE <OBYECT FILE=NAME> <COMPILER> 

COPY <FILE*NAME> 

Copy <FILE*NAME> <START RECORD NUMBER? 

COPY <FILE*NAME> «START RECORD NUMBER> <END RECORD NuMBER> 
COPY SC(FILE*NAME> MERGE 

COPY OVERITE ON 

COPY OVERITE OFF 

COPY OVERITE 

"COPY <FILE*NAME> 

=COPy <FILE*nAME> <syARy RECORD NUMBER> 

"COPY <FILe*NAMeS «START ReCORD NUMBER> <eND Re CORD NUMBER> 
“COPY <FILE*NAME> MERGE 

DELETE <SEQ@ NUMBER> 

DELETE <START SEQ NUMBER> <EnD SEQ NUMBER? 

DELETE 

DITTA <SEQ NUMBER> 

DITTO <START SEQ NUMBER> €END SEQ NUMBER> 

DITTO OVERITE ON 

DITTO OVERITE OFF 

OLTTO OVERITE 

"DITTO <SEQ yUMBER? 

eDIrTQ <START SEQ NUMBER, <END SEQ NUMBERS 

DITTO <SEG NUMBER> MOVE 

DITTO <sTART SE@ NUMBER> <END sE@ NUMBERs MOVE 

EDIT <START SEO NUMgER> <ENp SEG NUMgER>s<FORMAT SEQ NUM pER> 
EDIT ECHO ON 

EpIT ECHO OFF 

EDIT ECHO . 

WEDIT <START SEQ NUMBER> END SEQ NUMBER>:<FORMAT sEQ NUMBER> 
END 


EXECUTE <SQURCE> <OPTIONAL PARAMETER LIST> 
TEXECUTE <SOURCE> <OPTIGNAL PARAMETER LIST> 
EXECUTE ECHO ON 

EXECUTE ECHO OFF 

EXECUTE ECHO 

EXECUTE LIBRARY = <NAME> 
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EXECUTE “LIBRARY 
INC INCREMENT? | 
Inc: j 

INLINE <SEQ NUMB 
INLINE <SEQ NUMB 
INLINE <SEQ NUMB 
INLINE <SEQ NUMB 
INLINE . AES 


INLINE R bg MOP fee 


INLINE D ee 
INLINE ECHO ON 


INLINE ECHO. OFF 


INLINE ECHO © 6) 
"INLINE <SEQsNUM 
“INLINE <SEQ NUM 
*INLINE <SEQ NUM 
"INLINE <SEQ°> NUM 
= INLINE ee 
"INLINE I” 
"INLINE R. 
"INLINE Do 
LIST 


LIST. <PILE*N AMER Sc: 


LIST <FILE*NAME>. 
LISTUCFILESNAME> 
LIST FILE mNAME> 
LIST <SEQ “NUMBER 
LIST <START SEQ 
LISTING <FILE#Ty 
LISTING ee 
LISTING Mi 
MATL oe 


ER> 

ER> j 

ER? R 

ER> 0 = 


BER> 

BER> I 
BER> R 
BER> D 


NO 
<START RECORD NUMBER> Sn. eee 
OSTART RECORD NUMBER> <END RECORD NUMBER? 
> 
NUMBER> <END SEQ NUMBER> 
PE> <SEGMENT> <LOW REL ADOR> <HIGH REL ADDR> 
PE> ERRORS 


MAIL TO <USER@CODE>! <MESSAGE> 
OPEN <FILE*NAME> <FILE@=TYPE> NEW 


OPEN <FILE=NAME> 


<FILE*TYPE> O10 


OPEN <FILE@NAMES ares ‘TYPE> 


PERCENT ON ee 
PERCENT OFF - 
PERCENT*** 1 
PRINT’ <IDENT#1> 
PRINT <,.DENT#=4> 
PRINT <IDENTmL>: 
PRINT’ <IDENT#y> 
PRIKQT*<IDENT™L>: 
PRINT *<IDENTe ba: 
PUNCH <IDENT# 1 >: 
PUNCH. <IDENT#L> 
PUNCH. EN 
QUICK: Baie Jia 
QUICK: <FILE® “NAME 
QUICK. S<FILE*NAME 


QUICK» <FILE=*NAME 


i Le 


<IEDENT#2> i> 


DOUBLE -- 
<IDENT*#2> <START SEQ NUMBER> 
DOUBLE <START SEQ NUMBERD> 


SIDEQT*2>/<START SEQ NUMBER> <END SEQ yUMBER> 


DOUBLE i<START SEG NUMBER> <END SEQ NUMBER> 
<IDENT#2> 


SIDENT@2> <START SEQ NUMBER> 


aCe, Soba SeEQ NUMBER> <pND SEQ NUMBER> 
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>. 

> NO. 

> <START RECORD NUMBER> 
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alien C<FILE=yAWED <START RECGRD \UMBER> <EyD RECORD yUMBER> 
QUICK <SEQ NUMBER> 
QUICK <START SEQ NUMBER> <END SEQ NUMBER> 
REMOVE <FILE=NAME> ~ 
REPLACE <OLD VERDE t <NEW VERB 
RESEQ: °° 
RESEQ <INCREMENT>- 
RESEQ-<START SEQ NUMBER> <€END SEQ NUMBER> 
RESEQ.<START: SE@ NUMBER> <END SEQ@ NUMBER> <NEW Srany SEQ NUMBER> 
RESEQ -<START SEQ NUMBER> <END SEG NUMBER> <NEW 4, NUMBER> <INCREMENT> 
SAVE. SSAVETE REICH aN DAYS> 
SAVE’ 
SCAN’ <STRING>» 
SCAN‘ <START SEQ NUMBERD> <STRING> puis 
SCAN <START. SEQ wUMBER> <EnD SEQ NUMBER> SSTRENG? 
SCAN <FILE*"NAMES <STRING> ee 
SCAN ‘<FILE*NAME>: <STaRT RECORD NUMBER> <STRING> 
SERN SET LEON GHES: SSTART RECORD NUMBER> <END RECORD aerate Bala 
SCAN 
SCAN °<START- See ‘NUMBER> 
SCAN «START SEQ NUMBER> <END SE@ NUMBER> 
SCAN ‘<FILE=NAME® 
SCAN SFILE@NAMES <START RECORD NUMBERD> 
ScaN<FILE= NaME> ae RECORD NUMBER> <END gECORD NUMBER? 
: i 


— *™SCAN <STRINGS © 


*"ScCAN <START: SEQ NUKBER> <STRING> 
*=SCAN <START SEQ NUMBER> <END SEQ NyMBER> <S7TRING> 
ee SCAN ae ‘NAMES <STRING> ae 


LEeNAME> <START RECORD NUMBER> <STRI\G> 


Seeenn SPILESNAME 5 <START RECORD NUMBER> <END RECORD NUMBER> <sTRING> 


**SCAN ° . 
*" SCAN * START ‘$E0 NUMBER> 


e"ScaN <START SEQ@-NUMBER> <END SEQ NUMBER> 


*™SCAN SF ILE@NAME> 
*"ScAN\<FILESNAMED START RECORD NUMBER> ore 
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TAB + <OFF=SET NUMBER? ew aG 
TAB. * <OFF@SET: ‘NUMBER> ileeda. 4k 
TAB. ON: ee 

TABS OFF = oo 
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TEACH <VERB> 

ZIP 

ZIP <SCRATCH FILE*NAME> 
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@CUMPILE R/C ALGOL LIBRARY 


ore 


REND, 


— PACKET 44 
INPUT 9 CARDS FROM CRA 
TIME 1548 
DATE. 76194 MONDAYs 07/12/76 


fee MESSAGE GF THE Day hol 


WELCOME. TC 5700 TIME SHARING, 
MAY YOUR DATA BE DEPENDABLE AND YOUR PROGRAMS PROVEN. 
FROM THE STAFF OF THE BIG BAD BURROUGHS, 


COMPILE R/C ALGOL LIBRARY 


PALGOL STACKS 1024 
 PaALGOL FILE TAPE= RCSY94/Z100006 DISK SERT AL 
2? STACKS 256 
9 CORES 3300. 
? DATA CARD 
4tALGOL/R= 2 BOdJ 1548 06/23/76 
CDA IN CARD DASALGOL/Re 2 
OKA IN SER RCSY94 41000062ALGOL/R= 2 
PBOCCH!? OUT O11 LINEFALGOL/Re 2 
OKA CUT ROM R- CSALGOL /Rs 2 
“R/C REMOVED 
R/¢G/0000000= 360 SEGS*CREATED 07 02/76 AT eevee 
DKA LOK R cCHALGOL/R= 2 | 


-PBDCO42 REL 0114 GENE 42141 ALGOL/Rs 2 


eee = as Ector 
— BR 


ALGOL/R maj 
PKT#0641 RE 


lite ad = endl. howe eke 7 Cae shiney : 
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R/C *" A MULT] YSER REMOTE/CARD, 
WRITTEN By RON BRODYS BURRQUGRS CORP, PAGQLIs PAs 215-NI494700 wat 


BEGIN 


DEFINE VERSION = 94#°; &% NOVEMBER 18% 1971, 
DEFINE MAXUSERS # Bt, MAXYUSER = 7#3 


DEFINE CHRSPERBUFFER = 56#, * OR 28 
— WORDSPERBUFFER = 8%, “& ORS 
WOSPERBUFFER = 7# 3 % OR 4 é 


Se Sa SR We ee ie a ee CR Wao ee 
ALPHA FILE IN TWXINPUT 44 CMAXUSER * MAXUSERs @) 3 
ALPHA FILE OUT TWXOUTPUT 14 (MAXUSERS* WORDSPERBUFFER) 3 
DEFINE TWXQUT = TWXOUTPUT CSTATIONI» O)# 3 
ARRAY PRETANK (0 % 3]5 ~ 
BUFFERS £O $ MAXUSERS» 0 % 44) 3 
DEFINE BUFFER (BuUFFER,] = BUFFERS [USER» BUFFER {14> 
BLCC = BUFFER (29)]#» . 
BUFF CBUFF1] = BUFFERS LMAXUSERS»s BUFFil# 3 
INTEGER ARRAY READY (CO & MAaXUSERS).; 
DEFINE RATTLEINDEX = READYQ CMAXUSERSI4 3 
INTEGER USERe 
USER32, 
GLOGKs 
 REABDYQTORs 
NEXTCLOCK» 
TINKes | 
BIGBIRD 3 
BOOLEAN GLOBAL BOOL # 
DEFINE 
TANKEDQUTPUT = GLOBALBOOL . (47 3 4]#e 
QUTPUTREADY = (GLOBALBOOL)#» 
@ = GLOBALBOOL » C46 3 1j#, 
LOCKED = GLOBALBOOL , (45 3 1)a> 
XLOCKED = GLOBALBOOL +» £44 & 1), 
YLCCKED = GLOBALBOOL » (43 % 4]#, 
QINPUT * GLOBALBUOL « £42 & Like 
. ERRTOG = GLOBALBOOL » C1 ¢ lia; 
ARRAY INPUT CO % 14] 3 
DEFINE TO = INPUT [10] 4 
Ti = INPUT C11]# 
TN = INPUT Ci2])#- 
_ EREEWEAD = INPUT €13]4, 
MAXFREEHEAD = INPUT (14)4 3 
DEFINE CHRS = BUFFER (30]4, 
NCHRS & BUFFER (31)#- 
USERCODEL = BUFFER ([32)]%, 
STATIONS = BUFFER (33) #5 
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EMPTY4 = BOOL. : 
ONGST~R * BOOL , (29.4 1) 4» 
- MOREINPUT # BOOL [23 ¢ Lt, 

— NOTPIRSTINPUT = edo, c22 ! 414, 


BREAKI = BUFFER (34]#>s 


ABNORMALEND = BUFFER (35)#» 
INREADYQ = BUFFER [36]#,> 
FIRSTCHANCE = BUFFER [37]#s 
ILFQ@RI.® BUFFER [38]4>» 
TRANSLATE] = BUFFER [39] #» 
HEADI = BUFFER C40]#» 

TIME = BUFFER [C4114> 

TAILI = BUFFER (C42]#2 


SLOTI = BUFFER [43]#» 


BLOCK = BUFFER Ca4)#s 


GOUNTI = BUFFER Col# 3 | oo 
ALPHA ARRAY RECORD CO 4 9] 3 Ae 
REAL ARRAY LINKLISTS [0 1 32 x MAXUSERS © + 0 1 255) 3 
DEFINE TIMEX = TIME (1)#» 

“FIRST ® LINKLISTS CUSER322 Ot, 

LAST = LINKLISTS CUSER32> 1]#> 


LEFTSIDE = (35 % 514» 


RIGHTSIDE = £40 § 6)4s 


LL CLLid = 
LINKLISTS CCTINK %# LLAsLEFTSIOE + USER32, TINKeRIGHTSIDE]4, 
S = [1 $ 21)# 
Sp @ 1 9 27 t 218 
Fos (22 8 13)#> 
FF = 22 % 35 3 138s 
T = £35 3: 13)4. 
TF = 35 3: 35 # 134, 
INFINITY = 2097151#, MAXIMUM SEQUENCE NUMBER & 24elele 


FINITY #@. 20971508» 
~  MAXPILELENGTH = 81918 is ms 241361, 
DEFINE MODIFY (MODIFY) = 


MODIFIED t= MOOIFIED OR THO CGMODIFYL)«¢LEFTSIDE)# 5 


DEFINE WAITFLAG = BOOL « Ca7 ! 434+ WAITING = (BOOLD 4, 


INLINETOG * BOOL » £46 & 4)#s 


“EXTRALFCR = BOOL « [C45 % 1)é> 


EXEGUTEECHO = BOOL , C44 4 Lis 
TRANSLAFING = BOOL , C43 s lize 
XECHO = BOOL . (C42 % 41k» 
NUML = BOOL ry [36 § 2lae 


% INITIALLY ON 


NUM@ = BOOL , £34 $ 2)#s 

NUM3 = BOOL . (32 4 2)4, 
NUMG = BOOL , £30 4 2)¢> 

EMPTY1 = BOOL : 
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EMPTy¥2 = BOOL « (34 4 a]ée 
EMPTY3 = BOOL « : 
$ 
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INLINEECHO = BOO, , (21.3 Lia % INITIALLY ON 
CHANGEEGHO s BOOL . C20 $ 1)» 


EDITECHG = BOOL » C19 # L)Hs 


COPYCLOBBER = BOOL « C18 t 1J#, 


DITTOCLOBBER * BOQ » C17 t ,l#» 
TEMPTOG = BOOL « C16 & LIte 
TABON = BOOL , C15 & 1)#, 
COLUMNS = BOOL » C12 & Lids 
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11]#.s 


INITIAL BOOL = BOOLEAN (#440004")# 5 


STRINGI 
STRINGIO 
STRINGILEFT 
STRINGIREPEAT 
STRINGJ 


_ STRINGJO 


STRINGJLEFT 
STRINGJREPEAT 
CHARACTER 
MAXCOLSTOP 
CCOLSTOPS 


COLSTOP4 


COLSTOPR3 


COLSTOP2 


COLSTOP4 

COLSTOP CCOLSTOP1) 
RELATIVENUMBER 
STRING 


REAL ‘PARAMETEROs 
— PARAMETER1L» 


PARAMETER2>» 
PARAMETERS» 
PARAMETER 4» 


_USERCODEs 


STATION» 
PREF IXs- 


SUFFIX» 


MACROLIBRARY 3 


BOOLEAN MODIFIED ; 
INTEGER FILEINFO, 


TABAMOUNT» 
FILEACCESSs 
SAVEF ACTOR» | 
PREWHEREs 
XDEX>s 


RESETN 3 


BOOLEAN Boo, 3 
DEFINE COBOLFILE. 2 BOOLEAN CFILEINFO) #, 
 DATAFILE = FILEINFO = 
ALGOLFIEE = FILEINFO GEQ ALGOL#, 


ARRAY CONTROLS (0O-$ 904 
DER INE VN. 


COMPILER = FILEINFO#s 
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CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 


CONTROLS. 


CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 


CONTROLS € 


CONTROLS 
CONTROLS 
CONTROLS 
CONTROLS 


C89 )#, 

L8G ]#s 

C8718» 

C86] #-. 

[85 ]#s 

[64]k#s 

C83]#s 

C82)%. 

C81)#. 

C80)#, 

[79] #s» 

L78)#» 

C771#>» 

C76] 8s 

C75) #, 

[74] 4, nee 
(73 + COLSTOP114>» 
C73]4> 


C30]# + & CONTROLS er 


(36) 


£39) 


(40) 
C41] 
42] 
(43) 
(44) 
£45] 
[46]. 
(47] 
[48] 
C49] 


—.. FENGTH = CIF ALGOLFILE THEN 72 ELSE IF CQOBOLFILE THEN 66 ELSE 80)#, Boe 
— HALPLENGTHE CIE ALGOLFILE THEN 36 ELSE [Fr COBOLFILE THEN. 33 ELSE. 40)te 8 


FULLLENGTH = CIF DATAFILE THEN 80 ELSE 72)#, 
HALFFULELENGTH © (IF DATAFILE THEN 40 ELSE 36)#» 


COBOL = 1% 
DATA & pi» 


00043500 
00043600 


00043700 © 
00043800 
— 00043900 


00044000 


00044100. 


0@044200 
06044300 
08044400 
00044500 
00044600 


00044700 
00044800 


00044900 
00045000 


00045100 
90045200 
00045300. 


09045400 
90045500 
00046600 


00046610. 
00046620 


06646630 
00046640 
06046650 


00046700 

90046800. 
-00046900— 
00047000 


000471400 
00047200 


99047300 
90047400 


00047500 


00047600 


00047700 
06047800 
90047900 


90048000 
00048400 
00048200. 


00048300 
00048400 
00048500 


98048800 
00048820 
00048830 


00048840 


09048850 
00048660 | 


00046870 


00048880 


00048890 
00049600 
000494610 


Serpe Gees, ein a Sop) eae a es a st as se st 


0022 
0022 
0022 
0022 
0022 
0022 


Q022 


0022 


0022 


0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 


0022. 


0022 


(0022 


0022 
0022 
0042 
0022 
0022 
0022 
0022 
0022 
Q022 
0022 


0022. 


0022 


0022 


0022 
0022 


022 
og22 
0022 


0022 
0022 
0022 
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ALGBL = 4#> oe ee 90049620 


XALGOL = 6%, 00049630 
FORTRAN = 8#» . 00049640 
BASIC = 10#, byueteae toe: 00049650 
FILEQPEN = FILEACCESS GTR Ot» So 00050710 
FILECLOSED = FILEACCESS LEQ OF» 00050720 
READONLYFILE 5 FILEACCESS = 2#s : 06050730 
READWRITEFILE = FILEACCESS Gea 34 3 00050740 
SAVE ARRA¥ IMAGE CO $ 29] 3 00058000 
DEFINE RSWOM = 27#, . 99058500 
RSWO CRSWO1)] =. CONTROLS [CRSWD1]#> Ha DB ta ae -.00061500 
RWTEACH = RSWD C24)# 3 Ce 96062000 
FILE DISC DISK SERIAL (2, 10, 30) ; I Feo 00064000 
FILE LIBRARY DISK SERIAL Cas 10 30) 3 09065500 
FILE R1 DISK SERIAL "R/C Weim Che 90) 3 0€069500 
FILE Ro DISK SERIAL "R/C" "HO" Cyr 256) 3 . Ss yessenet Lasuees 90070000 
FILE Ig DISK RANDOM [204150] (42 30) 3 : oe peoresed 
ARRAY ZIPPY (CO t MAX (29> WAXUSERS + MAXUSERS # 4)7 2 | oe Beer engo 
FORMAT ZIPPER c"CC COMPILE "» ale AGs "/%s Al» a6ée " WITH 2 Ou 90072000 
START OF SEGMENT 
Als Aés “ LIBRARYS ALGOL FILE CARDS» Alp Abs "/%» Ale Abs 00072500 
" SERIAL# ALGOL FILE LINESLINES™» Al» AOs " SERIALS ENO 4... 43 7 06073000 
EQY ("SAGOOD BYESZ#26"), Co 900TI60 
NGRQOM (X8s "SORRYs FULL UPeS4BYESZOt)s : ae oe ee 000739700 
USERUN (X8e "USESSA77 RUN goat" 2e ee ee 00078600 
STAR C'¥s X79)e 00079000 
DATE CX6» Als A6e "s/o Als Abe " LISTED AT"s+ 13e "2"%s Lee * GN "> 00079300 
. Ade “DAY "s Oe BY "s Al* Abs X62)s ene ur, 090079400 
WALTF. CUWALT ee e@ 2 ea OOO BEQOO 
RATTLE (X8e “<ece™), ee ee 8087000 
TEACHL CMSZTHE VALIO VERBS ARES"), noe ee 9 @B7500 
TEACH2 (7 CALs Ae X2))0 00088000 
TEACH3 CHFOR SYNTAX OF A VERB CEeGe TAB)* INPUTS -* TEACHHS 06088500 © 
" VERBe CEeGe * TEACH TAB) "> . . 00089000 
BROKEN Cx8r "SFBREAK SAO") ; OU ees 00092000 
ie 8 ee BTS 428 LONG 
DEFINE ONOFF (ONOFFL) = (If ONOFF1 THEN * ON " ELSE" OFF 8 8 ge 09097100 7 
DEFINE XMAX = 5# 3 00099600 
ARRAY XARRAY LOMMAXUSER> OSXMAX KX 43°" 4) 4 09099700 
DEFINE | sspaumennenine egesroennaree covegeessentin tec AO OLD 
XSUB-= XDEX x 43#e ee 
XPARAMETERS [CXPARAMETERS1) = XARRAY LUSER, XSUB. + OXPARAMETERSI]Ey 98099900 
XSTART = XARRAY CUSER* XSUB + 5) #» | ee eo g00008 
XLAST = XARRAY CUSER* XSUB + 6J# 00100400 
XN = XARRAY CUSERs xXSUB + 7) #, oo1c0200 
XREPEAT * XARRAY LUSER* XSUB + 81d,» 7 100300 
XPREF IX. # XARRAY CUSER»s XSUB + 91g» Oe ee OF OOM00 
MSUFFIX # XARRAY CUSER* XSUB + 10) 4: Oe 99100500 
XFILETYPE = XARRAY CYUSERs xsue + LL)4, oo ee ee 0200600 
XNCHRS = XARRAY [USERs XSUB + t2]4 3 00100700 
PROCEDURE PROGRAM # FORWARD 3 06101000 
ALPHA PROCEDURE QCTDECIMAL (Ns Ms F) 3 - _ 00401100 
VALUE Ne Fa 994101200 
INTEGER No» Ma F 3 00101300 
BEGIN 00101400 
ALPHA STREAM PROCEUURE OCTDECX (Ns Fe ge T) § 00101500 


START OF SEGMENT 


ee ee eee ee ee eee 


Dig do de a Os a 


0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0022 
0024 
0024 
0024— 
0024 
0027 
0031 
0034 
0038 
0044 
0047 


KEKE REENE 


0047 
0047 
0047 
0047 
0047, 
0047 
OQ4? 
004? 
Q047 
0047 
0047 
0047 
0047 
0047 
0047 
NEXT SEG 
0047 
O047 
0047 


0081 


0054 
0051 
0054 
0054 
0051 
0051. 
0081 
OOS, 
0054 
0054 
0051 
0051 
Q054 
0054 
0054 
OO51 


KEWHEKE REE 


2 


~ 


@®ee#eee%8e#ee@eee60e0ee0e@8e8 808 @@ 


my 


VALUE Fe Qs T 3 ee 00101600 


BEGIN 00102500 © 
LABEL EXIT 3 00102600 
Dl #* LOC OCTLECX 3 — 00103000 

S$] ts N 3 Ue 00103100 

T ¢@ (DS t= F OCT § JUMP OUT 2 TO EXIT) 3” 0109800 

SKIP F DB + DS t* SET # JUMP OUT TQ EXIT) 3 a : 00103500 

Q CF CSI #® Sl # 23 DS &* 2 CHR 3 DS t= LIT "4" 3 OS t= 2 CRR 3 09103600 

OS 38 LIT "/" 3 OS #% 2 CHR & JUMP QUT 2 TO ExIT) 3 09103700 

DI ?8 oO] + 7 # OS 45 CHR & JUMP OUT TO EXIT) + 06103800 

Ds t# 8 DEC 3 ; oe 06104000 

fF (DY %# Or ™ 7 3 DS 35 6 FILL) ce ee - 06104100 
EXITS SO e040 200 
END OCTDECX 3 00104300 

IF F LEQ@ 1 THEN . 09104400 
BEGIN . 00104500 

— N $8 NG . ee 06104600 
OCTDECIMAL $= OCTDECX (Ne Fe ge 0) & ee 00104700 

ENB ELSE IF F # 2 THEN : ob ee 00104800 
BCTDECIMAL t= OCTDECX (Me O» te 0) 00404900 — 

ELSE IF F = 3 TREN 09104910 
OCTOECIMAL t= OCTOECKX (Ne de dp 0) 06104920 

ELSE IF F = 4 THEN ee 06308930 
QCTDECIMAL %© CCTDECX (Ms Ne de 1) | i 00104940 

ELSE : a ee - 9QE05000 
OCTDECIMAL &* QCTDECX (Me WN 8* 47 @= Ne Or 4) 3 00105400 

END OCTDECIMAL 3 00105200 
; —. 4 18 39 LONG 

DEFINE OCTGEC COCTDECL) = GCTDECIMAL COCTDECL» My O)#, fe ee 09208900 
OCTOEX COCTDEX1) = OCTOECIMAL COCTDEX1» Ms 1)#, 08105400 
FIRSTCHAR CFIRSTCHAR1) = OCTOECIMAL (0, FIRSTCHARL» 20h oro ee O08 P05500 
MMDBYY 3 QCTDECIMAL CTIME (5) Ms 3280 06105600 
DEC (DECL: DEC2) 3s QCTDECIMAL CDEC2s DECis 4)#» 06105700 
TWO CTWO4) = BOOLEAN COCTDECIMAL CTWOy>e Ms 5))# 3 — . 00405800 
ee ee a ee es iw 00120500. 
DEFINE SEQUENCE = ee: oe bees 4 Q0121000 
TF ALGOLFILE THEN | _ vs 00121500 
IMAGE C9) g= UCTOEC CIF N = FINITY THEN 99999999 ELSE N) 00122000 

ELSE IF COBOLFILE THEN - 99122500 
BEGIN aeeeaaioneentin, Detue asada: 2 00123000 
IMAGE [0],01235] #* QcTpec ¢N) 3 Eas 00124000 
IMAGE (93 ts SUFFIX & "."C484325) 5 Se | OO ERARIO 

END# } : a ee He (00125500 
wok ee eR eR Re ee ee RR Oe kk Oh ke 00126000 
PROCEBYRE STATIONFIX STAT TONG. I) 3 00126500 
VALUE STATIONs 13 . comttnitt, testi tistics perce + bong 0126600 
REAL STATION § : CN EG ne eo OO beer Oar 
INTEGER I } : : | | Se G0. g68e0 
BEGIN SR ee OT 269Q0: 
REAL XK 3 00127000 
START OF SEGMENT 

IF ] LEQ@ 4 THEN . _ seats asamemumeerteeneevemen es tase ei, OGLE71900 

— X fe STATUS CSTATIONs 1) 7 | SOR a Goderaog 
ELSE IF I LEQ 6 THEN ee ~ 00127300 

—. RELEASE (STATION) eee eee eee OO T2740 
ELSE IF I LE@ 8 THEN 00127500 


BEGIN 09127600 


THAN HHA SH A ts Hs ot A 


AAAS ot ot te A tt st 


TT TT Tr T 
. 9000 
9000. 
0003 
Q005. 
0006 
0010 


2 


$ 
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e 
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END MOVE 
INTEGER USER» 


SEEK CTWXINPUT CSTATION)) 2 
X $= STATUS CSTATIONs Q) 3 
END 
ELSE IF I = 9 THEN 
BEGIN 
WRITE CTWXOUTPUT CSTATION)» NOROOM) 3 
RELEASE (STATION) 3 
END 
ELSe IF I = 10 THEN 
BEGIN 
Ip BOOLEAN CSTATUS CSTATIONs 0)),(3081] OR 
USERCQDEI NE@ STATUS (STATION) THEN 
ABNORMALEND f= 4 4 
END 3 
END STATIONFIX 3 


DEFINE CHARGE (CHARGE1) = STATIONFIX (CHARGELs 0) #> 
FREEFILE CFREEFILEL) = STATIONFIX CFREEFILELs 3)#> 


UNFREEFILE CUNFREEFILEL) = STATIONFIX CUNFREEFILEL» 4)8— 


FORGET CFORGETL) = STATIONFIX CFORGETIe SdH 
DETACH = STATIONFIX CSTATIONs 6)#, 

ATTAGH = STATIONFIX (STATJONs 728» 

REATTACH = STATIONFIX CSTATIONs 8)#»>. 
“NOMOREROOM = STATIONFIX CSTATIONs 9) im» 
“CHECK CCHECK1) = STATIONFIX CCHECKLs 10)# 3 


Cue ed ae A 8 A a ee ae 


pee ne QUTPUT 3 


GIN 
STREAM. PROCEDURE MOVE (Se OD» We C) 3 VALUE We C ; 


BEGIN 


ts § 
: #3 D 
_ OS 33 W 
OS 4s : 


‘wee wo 


Ts 

SPOT 3 
BOOLEAN X 3 
LABEL FAKEQUTs 
- NEXT 3 


DEFINE A @ INPUT# 3 


EWHARGE (0) 3 
TANKEDOUTPUT 22 FALSE 3 
., BW CWOSPERBUFFER] 32 "e "5 
FOR. USER $F 0 STEP 4 UNTIL BIGBIRD DO 
BEGIN 
“TE: count GEQ oO TREN. 
BEGIN 
Ip TIMEY ™ TIMEX GTR 180 THEN 
GQ TO FAKEOQUT 3; 
SPOT. $3 HEADI 3 


IF REAL (CX #* BOOLEAN CSTATUS CSTATIONI*® 0)),02289)) 


AND BOOLEAN ("6A%)) NEQ Q THEN 


BEGIN 
IF xel39t1] TREN % BUSY 


. 06127800 © 
00127900 


00127625 


06127650 
00127675 
001427700 


06128000 
06128100 
00128200 
00128300 


06128400 


90128500 
00128600 


re 


00128700 
00128800 


40 LONG 
(00128900 


~~ 90129000 


001291400 


090129200 
06129300 


09129400 
90129500. 
90129600 

00129700 


00129800 
00130000 
99130200 
06130400 


sane oF SEGMENT 
: 00130600. 


00130800 
00131000 


00431200 
00131400 
00131600 
00131800 


06132200 
06132400 


0904132600 


06132800 


00133000 
09133200 


00134000 
091342900 
 00134600° 


00133400 
00133600 
00333800 


00134800 


00135000 


06135200 
00135400 
00135600 
00135800 
00136000 
00136200 


AAAs a He a 


AA tt tt ttt at 


0014 
0044 
0017 
0017 
0018 
0019 
0023 
0026 
0026 
0027 


0027 


0034 
0035 
0037 
0037 
NEXT SEG 
0051 


0054. 


0054 


0031 
0051 
0051 
0081 
00354 
00514 
0051 
00514 
0033 
0051 
weebbaten 
0000 
0900 
0000 


0000 


0004 
0004 
0001 
0001 
0004 
0004 
0004 
0004 
0004 
0004 
0003 
0094 
0006 
0004 
0008 
0009 
0010 
0013 
0043 
0015 
0019 
00214 
00@4 


e 
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BEGIN 
T ts 15 3 
GO TO FAKEOUT 3 
END 3 
IF REAL €X AND BOOLEAN €10)) NE@ 0 AND NOT X.THEN: 
WRITE CTWXOUT» BROKEN) 3 & CLEAR WRITE READY 
IF SPOT GEQ@ 0 THEN 
BEGIN 
A CO] %= FREEREAD 3 
WRITE CLO LTAILIJs te A CHI) 3 
FREEHEAD t= SPOT 3? 


END 3 : 
COUNTI t= XDEX te =] 3} 
TIMET 22 0 3 


BREAK] t* 1 3 
MOREINPUT $% FALSE 3 
GO TG NEXT 3 


ENO 3 
IF SPQT GE@ © THEN 
BEGIN 
READ ¢1Q CSPOTJ]s, 302 BUFF [4#]) 3’ 
MOVE (BUFF CBLOCK)s» A Cil»e O» CHRSPERBUFFER) 3 
WRITE CTWXOUTs WORDSPERBUFFERs A C¥J) CRAKEGUT)] 3 
T a8 CHRSPERBUFFER 3 
IF BLOCK t= BLOCK + WOSPERBUFFER GEQ@ 29 THEN 
BEGIN 
BLOCK ¢3 1} 
A CO] ts FREEHEAD 3 
WRITE (10 hentia dp A E¥)) 3 
FREEHEAD t= SPOT 
HEADI ta BUFF soy i 
END 3 
END ELSE 
BEGIN 
MOVE CBUFFER Cile A Clie QO» CHRSPERBUFFER) 3 


WRITE CTWXOUTs WORDSPERBUFFER» A t#]). CEAKEQUTI. te 


IF gLOC $s BLOC * WOSPERBUFFER LSS 4 THEN 
BEGIN 
COUNT] $2 74 3 
IF ABNORMALEND GEG 2 THEN 
ABNORMALEND ts AGNCRMALEND + 4 3 
60 TO NEXT 3 


END 3 = 


T $s CHRSPERBUFFER ; 

MOVE > US ae a eee 
2 END 5 

Fakeourt 


BEGIN 
TN 48 TIMED 3 
TANKEDOWTPUT $= TRUE 3 
ee ee ie 
NEXT# du 
oo ENDS 


ENO 3 
If QUTPUTREADY THEN 
NEXTCLOCK #3 CLOCK = TO x CTN * TIMEX * 90) / 150 


An TIWELIGHAXC TENET a TIMEXO IHG LSS TN OR NOT OUTPUTREADY. Wen L. 


90146800 
00147000 


06136400 
00136600 
00136800 
00137000 


00137200 


00137400 


00137600 
00137800 
00138000 
00138200 


00138400 


00138600 
00138800 
00139000 
00139200 
00139400 
00139600 


00139800 


00140000 
00140200 
00140400 
00140600 


00140800 
00141000 
90141200 


00444400 
06141600 
00141800 


00142000 


00142200 


00142400 


00142600 
00142800 
06143000 
06143200 


90143400 
00143600 


00143800 
00144000 
00144200 


00144400. 
00144600 
09144600 


00145900 
00145200 


99145400 
09145600 
00445800 


00146200 


00146400 


00447200 


00147400 


00147600 


A gaa 4 a ee a a a aa AaH H+ 


@®eeeeee@eeeeeeeeeeeseeneaeeananr 


o's Ss 6. So. SS ry 
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ELSE 


NEXTCLOCK %8 =99 3 
GHARGE CSTATION) 3 
END QUTPUT 3 


a a SP Mk ac ae ae 


PROCEDURE WRITETWX 3 
BEGIN 
INTEGER STREAM PROCEDURE COUNT (S) 3 


BEGIN: 


Slose Soe 
28 ¢IF. SC =#.%e" THEN 


JUMP QUT i 


TALLY tt TALLY + 4 3 


SL. 


t= SI * 4) 3 


$ te SEB 


DT as: 


"OS ts 
CCUNT 


ee 
ELT 6"? 
t= TALLY 3 


END COUNT 3 
STREAM PROCEDURE MOVE (Se DQ» SKPS» SKPDs N) 3 
VALUE SKPS» SKPDe WN 3 


BEGIN 


SI 35 


QI 3 
$I 33 
O11. 38 
oS 15 


END M@VE 3 


‘ee wwe 


3 
) 
SJ] + SKPS 3 
DI + SKPO 3 
N CHR @ 


INTEGER Co Ja K 


DEFINE A 


= PRETANK#® 3 


LABEL NOSKIP» 


SKIP. 3 


IF. BOOLEAN CILFCRID THEN 
_. BEGIN 
ILFCRI #3 0 2 
IF FIRSTCHAR (A [0]) = "5s" THEN 


END er re 
TF. c t= COUNT CA) = y NEQ@ O AND NOT BOOLEAN (BREAKI) THEN 


: 3 2 3 


BEGIN. 


IF K $s COUNT] SS 0 THEN 


BEGIN 


NOSKIPS 


BUFFER [4] t5 "e ae 
MOVE CA CO] BUFFER Cile we Os 282 3 


If TIMEL * TIMEX GeEQ i180. THEN 


GO TO NOSKIP 3 
WRITE CTWXOUTs Se BUFFER [¥]) CNOSKIP : NOsKiP). 
TIMEL te MAX CTIMETs TIMEX) + C x 6 3 
60 TO SKIP 3 


COUNT] $3 0 3 

BLOCK #* BLOC t= 4 3 

HEAD] ss “1 3 

IF TIMET LSS TN OR NOT QUTPUTREADY THEN 
BEGIN 


00147800 


001457000 


09158600 


T 0136 

09148000 T 0437 
600448200 T 01398 
06148400 Tf Q339 

~ $45 LONG» NEXT SEG 
06148600 7+ Q081 
00148800 T 0054 
00449200 T 0054 
09149400 7 0051 
[| OF SEGMENT axnkeetaane 

00149600 7 0000 
00149800 T 0000 
00150000 7 0000 
00150200 T 0004 
09150400 rt 9001 
— 090130600 T 0001 
06150800 T 0003 
00151000 T 0003 
09151200 T G003. 
00451400 T 0004 
00431600 T 0004 
06151800 T 0005 

00152000 T 0905 

~ 00152200 T 0005 
00152400 T 0006 
00152600 T 0006 
09152800 T 0006 
00153000 T 0007 
- 90153200 T OGO? 
09153400 tT 0008 
00153600 7 0008 
00153700 T 0008 
00153800 T 0008 
09154000 T 0008 
00154200 7 0008 
00134400 T 0010 
00154600 T 0010 
00154800 T 0012 
00155000 T. 0014 
00155200 7 0016 
~ 00155400 T 0016 
00155600 T 0020 
- 001455800 T 0024 
00456000 T 0023 
00156200 T 0024 
06156400 T 0026 
00156600 T 0029 

00156800 T 0034 
T 0032 
06157200 T 0044 
06157400 T 0048 
00157600 T 06050 
00457800 T 0050 
00158000 T 0052 
06158200 T 0055 
06158400 Tt 0054 

T 0060 


é 


®e70208e ee © © © 8h elle ek ee ll 


@®eeeeee#eeeeee8% @® @ 


e@eeneee 


NEXTCLOCK #8 CLOCK * TO x CCTNESTIMELI"TIMEX®120) / 150 
TANKEDOUTPUT %=& TRUE 3 


END 3 
GO TO SKIP 3 
END 3 
IF K LSS CHRSPERBUFFER THEN 
BEGIN 


MOVE CAe BUFFER CBLOC]* Jr Ke CHRSPERBUFFER * K) ; 
J te J + CHRSPERBUFFER = K 3 
If COUNTI #= K 8 K + C LSS CHRSPERBUFFER THEN 
GO TQ SKIP 3 | 
C #8 K = CHRSPERBUFFER 3 


ENQ 3 
IF BLOC t= BLOC + WOSPERBUFFER GEQ 29 THEN 
BEGIN 
BLOC t= 1 3 
IF FREEHEAD NEQ MAXFREEHEAD THEN 
BEGIN 
READ C10 CFREEHEAD]s 1+ BUFFER (J) ; 
K t= BUFFER (0) 3 
END ELSE 
K tx MAXFREEHEAD t= MAXFREEHEAD + 1 3 
BUFFER [0] t= "4 3 
WRITE CIO CFREEHEADJs 306 BUFFER [#)) 
IF HEADI GEQ Q THEN 
BEGIN 
READ (IQ CTAILI]» 30% BUFFER [¥)) 3 
BUFFER (0] %® FREEHEAD 3 
WRITE CIO CTAILI}» 305 BUFFER [*]) 3 
END ELSE 
HEAD] #* FREEHEAD 3. 
TATL] t= FREEKEAD 3 
EREEHEAD te K 3 
ENQ 3 
MOVE CA» BUFFER rBLacl+ de Oe 29) 3 
COUNTI t= C 3 
END 3 
SKIP3 
END WRITETWX 3 


er re eee te er ae ee ee ee oe ee ae ee ee ee ee 
DEFINE ITSOLOD CITSOLD1) = BOOLEAN CKOUNT CITSOLD1, 0, 02%». 
LOC (LOG4) = KOUNT (LOC, ys O08 3 
INTEGER PROCEDURE KOUNT (Ne We KK) 3 
VALUE Ne Ms KK 3 


INTEGER. Ne Ms KK 3 


BEGIN 
INTEGER K s. 


REAL ‘L ; 


WHILE N Lss CL $3 LL CATII«eS 00 
AT FR LaF 3 
WHILE N. tte 1 oe 4 LL CATI2«S OO 
AT 23 aT 2 
oTP KK NEQ 0 THEN 
BEGIN 
IF M ® INFINITY THEN M &® M ® f 3 


, 


ms 


06158800 
00159000 
00159200 
09159400 
00159600 


001598600 


~ 90160000 


06160200 
00160400 
00160600 
00160800 


00161000 | 


00161200 
00461400 
06161600 
001614800 


— 00162000 
90162200 


00162400 . 


00162600 
00162800 
00163000 


00163200. 


00163400 


090163600 


00163800 
00164000 
00164200 


00164400 


00164600. 


00164800 


1s 


00165000 
06165200 
00165400 


99165600 
09165800 


00166000 
00166200 
09166400 


144 LONG 
00170000 
00170010 


00170020 


~ 00170030 


00170040 


. 99170050 


00170060 


00170070 T 


“start ‘OF SEGMENT 


06170080 
00170090 


—, 0901701300 
08170710 | 


09170120 


09170130 


00170140 
00170150 


At tO th 9 99 ht th ttt tt 


Q064 
0067 
0069 
0069 
0069 
0049 
0070 
0070 
0075 
0077 
0080 
0081 
0082 
0082 
0086 
0086 
0088 
0090 
Q090 
0096 
0098 
0098. 
04041 
0103 
0409 
0410 
O11 
0118 
0320. 
0126 
0126 
0129 
0431 
0132 
0132 
0136 
0138 
0438 
0139 
NEXT SEG 
0051.. 
0051 
0034 
0054 
0051 
0054 
0054 


0054 


ew ee We 
6000 
0000 
000s | 
0007. 
0012 
0014 
QQ14 
Qo4s 


2 


3B. 


~ 


on 


eee e@ e@ @ &© @ @ 


® @ @ @ 


[re ee ae ee oe ae Se ee De ee OT ee ee we 90970500. 


BEGIN - . a ei adnate Ape ecte ne 
STREAM PROCEOURE FURM CPRETANK* N* Ke LFCRe COLON® F) 3 oe 09176300 


WHILE M GEQ (Lt LL CATI2«S AND K fe K+ 1 NEQ@ KK DQ eee ee 00170160 

AT te Lol 3 00170170 

KOUNT t= K = REAL (M LSS LeS) 3 00170180 

END ELSE - | 09170190 
If BOOLEAN (M) THEN ee 08170200 
KOUNT tm AT Se 2 00170210 
ELSE oe 00170220 
KOUNT $= REAL (N = 4,8) 3 06170230 

ENB KOUNT 3 00170240 
8.18 37 LONG 


ee eee ee | 


DEFINE oo  OenT sod 
WRITESEQUENCE = WRITEALINE COd#s Oe ge ere OULF S106 
WRITELFGR ® WRITEALINE (1)# 009175200 
WRITESEQ = WRITEALINE (2) a> 00175300 
WRITEQUEUED = WRITEARINE (589. | a 09175900 

WRITESEGMENT = WRITEALINE (6) a> Oe  gearsroo | 
WRITERELADDR = WRITEALINE (74 3 , ee 8125800 

PROCEDURE WRITEALINE (K) 3 HE ae 00475900 

VALUE K 3 00176000 

INTEGER K 3 09176100 

00176200 


ae START. OF SEGMENT 
VALUE Ne Ks» LFCRe COLON® F 3 : 00176400. 
BEGIN 00176500 
LABEL EXIT 3 08176600 
QI 8% PRETANK 3 tt ee 09176700 - 
LFER os ts 2 LIT "SA" 3 oF Oo 00176890 

K (SI t= LOC N 3 00176900 

DS te K DEC 3 ee Se OER ROOO 

F (PRETANK $3 OI 3 00177100 

DI ## DI = K 3 00177200 

DS t= K FILL & . i 99177900 

OT 8 PRETANK) 3 OU ee OO EIT AG: 

MUMP OUT) 3 ee 06177500 

COLON (OS t= LIT se") 3 oe oe O17 7600 

JUMP QUT TO EXIT)? 3 00177700 

COLON (SI %= LOC N @ 00177800 

F CDS §* 7 LIT "QUEVEDC™ 3 fu pecee 90177900 

CO pg te 2 DEC. 3. UO ae) O6ETeg0d 

OS te LIT m2" 3 Oe E8400 

JUMP QUT 2 Tao EXIT) 3 J OTB 20) | 

K (0S #8 9 uit "REL ADDR" 3 06178300 

DS #3 4 DEC 3 00178400 

_. WWUMP QUT 2 TO EXIT) 3 . Pecoteiane othe 00178500 

pS 38 8 LIT "SEGMENTS" & Cee soe alr e8aod 

O08 ts 4 0EC # ee Coe Oe ergo! 

JUMP OUT TO EXIT) 3 HE Og Tag OO: 

F ON CDS Be LIT *® ©) 3 QUMP OUT To EXIT) 3 00179000 

OS 2:2 LIT ta" 3 001791400 
EXIT? | ee ee ee 09179200 
DS $3 GIT Me" 3 oe hen 00179300 
END FORM 3 06179400 
DEFINE XON = FORM CPRETANKs QO» O» O» Oe Q)#s 00179500 
TABIT = FORM C(PRETANKe Is Qs O» O» 1)8#> 00179400 
LFCR = FORM CPRETANKs O» O» Le On 08, 06179700 


ee ee 44a Gb aa bo ew oa ae eae) gear cg 


0017 
9025 
0028 
0030 
0030 
0031 
0034 
0032 
0034 

NEXT SEG 
0051 

0051 
0054 
0054 
0054 
0054 
0051. 
0054 
0054 
0051 
0054 
0054 
0054 


NH Re 


0000 
0000 
0000 
0000 
0000 | 
0004 
0003 
0003 
0004 
0005. 
0005 
0006 
QQ0?7 
0008 
0009 
0010 | 
0013 
0043 
0043 
0014 
OO17 
Q047 
0018 
0019 | 
0020 — 
0020 
0024 
Q024 
0024 
0025 
0Q25 
0025 
0025 


2 


@e5usevsv5uee50veeeeexeenwenaeeneee5ue0nes 


eeeeeoeeeeeeweneneeenenneeeee a 


COLON = FORM (PRETANKe Or O» do de 0) #2 


SEQ = FORM CPRETANKe IF N = INFINITY THEN 99999999 ELSE Ne 


IF COBOLFILE THEN 6 ELSE 6» ji» 
IF COBOLFILE THEN O ELSE le 1)#> 


OLDSEG@ = FORM CPRETANKs IF N 2 INFINITY THEN 99999999 ELSE No SS 


IF COBOLFILE THEN 6 ELSE 82 ta 


IF COBOLFILE THEN O ELSE 1» 1=REALCITSOLO Guia 


QUEFORM 5s FORM CFRETANKs REAGYGTOPs O» Or le 1)#» 


SEGMENT # FORM CPRETANKs PARAMETER2» Os O8 Le 028, 
RELADOR = FORM (PRETANKs PARAMETER3> fe Qe 1s O) es 


TWX CTWX1) = BEGIN TWX41 3 WRITETWX 3 ENDM § 
IF OK = 0 THEN 
BEGIN 

IF FILEQPEN THEN. 
BEGIN 
TWX CQLDSEQ) 3 
IF INLINETQG: AND EXTRALFCR THEN 
— JWX CLFOR) 3 
If TABON AND TABAMOUNT NE@ QO THEN 
BEGIN 
IF ] $*® TABAMOUNT GTR 27 THEN 
BEGIN. 
tote To" 27.3 
TWX CTABIT) 3 
I $s 27 3 
END 3 
TWX CTABIT) 3 
END 3 
END 
ELSE © . 
TWX (COLON) 3. 
IF xDEX LSS © AND NOT ERRTOG THEN 
TWX (XON) 


ELSE. 
ERRTOG &* FALSE 3 
ENO 
ELSE IF K 3 1 THEN 
BEGIN 
TWX CLFCR) 3 
ILFCRI Se 1 3 
Se BNDD oe eee. 
ELSE. 


TWX CIF Kez. ‘THEN SEQ ELSE IF Ke5 THEN QUEFORM eiseo! 
If Ke6 THEN SEGMENT ELSE IF K=7 THEN RELADDR) ; 


ENB WRITEALINE 3 


PROCEDURE WRITEROW (ROWs Qs» F) 3 


“VALUE Qe 
F 3 


BOOLEAN Q 3 


INTEGER F 3 
ARRAY ROW [OJ 3 


BEGIN. 
STREAM PROCEDURE MOVE (Ss ps» SKPSs N) 3 
VALUE SKPS» N 3 


06179800 
00179900 
00180000 


_. 09180400 
~Qolec2oo 


00180300 


~ 09180400 


Q0180500 
00180600 
06180700 
06160600 


00181000. 


09181100 


08261200 
09181300 


00181400 
00181500. 


00181600 


00181700 


00181800 
08181900 


00182000. 


00182100 


09182200 


96182300 


00182400 
00182500 


06182600 
00182700 


00162800 


00182900 


08183000 


09183400 
06483200 


00183300 
90183400 


00183500 
09183600 
06183700 


001483800 © 


00183900 
00184000 
06184100 
09184200 


a eee 


6 WW OS We + * ee 


06184300 


09191500 
00192000 
00192500 


00193000 


00193500 


90193600 - 
00193700 


START. OF SEGMENT 


06493800 


99 ONG, 
09190500 
~~ 06191000. 


Att At gt hg nt tt 


NEXT ‘SEG 
0051. 
0054 
0051. 
0054 
Q054 
0054 — 
0054. 
0054 
00514 


HERRERA KES 


T 


0000 


2 


10 


@e0o3see0e8e#eee0e8 88 e808#eeeees 


om 
we wo 


ts SI + SKPS 3 
Siz N CHR 
END MOVE 


STREAM PROCEDURE BLANKOUTSPECIALCHARACTERS (Ss De Ne K) 3 


VALUE Ne 


o 


Nee tee SE tee 1 we LD 
= 
‘we 


DS t® 6 LIT “A><2sen 3 


E ae 
=" 
-_ 
> 


"4 


Ef =] 
- 
o 
it 2 AO. AE 
oS 
7 
ee 


DI ta. 
BK CIF. s¢ =" " THEN 
BEGIN 
N CSI $8 STI" 43 
If $c = " * THEN 
BI te DIO" 44 
S$] #5 S$] + 4) 3 
DS 33 CHR 3 
END ELSE ar oe 
If SG = ALPHA THEN 
DS = CHR 
ELSE 
BEGIN. 
oD te Ors 
DI ts Lac N-3 
6 CIF ag 3 DC THEN JUMP QUT 3 Sq t# S] 
DI #2 0) 
IF TOGGLE THEN 
0S 2 4 LIT a" 


END BLANKOVTSPECIALCHARACTERS i 


a 


BOOLEAN STREAM PROCEDURE ALLBLANK (S» SKP» N) 
VALUE SKPs 


BEGIN 
LABEL GRPMKIT 3 
Sy ta S 3 
SI 4m SI] + SKP 3 
S] 33 St +N 4 
NOCST fa S$To" bb 
Ip S@ NEQ " " THEN 
JUMP QUT TO GRPMKIT) 3 
TALLY % 4 3- 
Sy ta SJ = 43 
GRPMKIT! 
Sr ss SJ] #13 
N $8 SI 3 
Of 8 N 3 


"= 1)3 


| 
* : ARAN aan EL 


# 


00193900 
00194000 
00194100 
09194200 
09194300 
00194400 
00195000 
06195500 
09195600 


06196000 | 


06197500 


00198000 
00198500. 
00199000 
00199500 » 


08200000 


09200500 
08201000. 
00201500 


09202000 
09202500 


06203000 


09203500 


00204000 


00204500 
00205000 
09205500 
09206000 


09206500 
00207000 
00207500 


00208000 


06208500 
00209000 


99209500 
06210000 


060210500 


00211000 


06219900 


00219500 
002200900 
09220500 

00221000 


06221500 
0e222000 


90222500. 
00223000 
00223500 
90224000 


00224500 
00225000 
00225500 
00226000 
06226500 
00227000 
00227500 
00228000 


Aaa 4s ene wo es pa a Sa ee ap Ga ea 


0000 
0000 
0000 
0000 
0004 
0001 
0004 
0004 
0001 
Q004 
0002 
0003 
0903 
0004 
0005 
0005 
0005 
Q005 


0007 


0007 
0009 
0009 


00140. 


0010 
0040 
OO4L 
0011 
OO011 
00t2 


0012 — 


0012 
0012 
0015 
0015 
0015 
0016 
0016 
0046 
0047 


0017 


0017 
0017 


0017 


0017 
OO18 


0018 
0018 
0016 


0019 
0020 
0024 
00241 
0022 
0022 
00282 
0023 
0023 


®eseevsvee5uveeeeeenneaeneneen2enaeaa 


& 


eeeeeeeeeeeweeeeeeeee e 


Os +2 1 LIT Ne" G 
ALLBLANK &* TALLY 3 
ENQ ALLBLANK 3 
BOOLEAN DATUM 3 


DEFINE FILEINFQ = F# 5 


INTEGER Z i> 
BLANKOUTSPECIALCHARACTERS (ROWs INPUT? GQ» HALFFULLLENGTH) | Ae 
IF DATAFILE THEN 
BEGIN 
MOVE CINPUT C9), ZIPPY C415), O» 8) 3 
DATUM #3 NOT ALLBLANK (ZIPPY Ci5]s Os 8) ; 
END 3 


EXTRALFCR t= NOT (COBOLFILE OR Q@tsALLBLANK CINPUT [Z4#7]s 7» 92) 3 


IF EXTRALFCR OR COBOLFILE THEN 
WRITELFCR 3 
IF @ THEN 
IF @ $3 ALLBLANK CINPUT C725 O» 7) THEN | 
TF @ t* ALLBLANK (INPUT CZt#3)* 4s 28) THEN 
Q ge ALLBLANK CINPUT C2830) O 28) 7 | 
iG NOT @ THEN 
FOR F t= O STEP 3 UNTIL 2 CO 
BEGIN — 
MOVE CINPUT CFI» PRETANK [QJ}s 4 x F DLV 3, 28): ge 
WRITETWX 2 
ENO 3 
If DATUM THEN 
BEGIN 
WREITELFCR 3 
MOVE CZIPPY [CiS]e PRETANKs O04 9) 3 
WRITETWX 3 
“END Bo 
WRITELFCR 3 
END WRITEROW 3 


Rok kok oe ee kk Rk kk ek RR kh ee oe ee 


PROCEDURE ERRORX (Ke Ae B) 3 


VALUE Ke 

A» 

B 3 
INTEGER K 3 


“REAL: Ay” 


8 ye 


___ BEGIN: ee 
STREAM NaoceDuRE CRUNCH (Ss Ks As B) # VALUE Ke As Bf 


BEGIN 


Lapel. EQ» Ely E22 E39 E4s E5e E6s FILENAMES CRUN Chl DEBLANK a 


SI t= LOC A 3 
oe STs SyTo4 43 
DI ta 8 3 
CS s# 2 LIT "S4" 3 
Cl. ts €1 +k oh 


560 TO bos 


G?> 
o 
ng 
Do 
"mfp 
Tos 
tae ‘we Yen we 


00228500 
00229000 
06229500 
00229600 
00229700 
00229800 
00230000 
00230100 
00230200 
06230300 
00230400 


06230500 
00231000 


00231500 
00232000 
09232500 


- 00233000 
00233500 
00234000 


00234300 
00235000 
00235500 


00236000 


00236500 
00237000 
06237050 
00237100 
00237200 


00237300 
00237400 
- 00237450 


00237460 
09237500 


69 LONG 
00237540 
00237512 


00237514 
06237516 


00237518 


09237520 


- 00237522 
090237524. 
00237526. 


00237528 


START OF SEGMENT 


00237530 


00237532. 


00237534 


00237536 


00237538 
00237540 


.. 00237542 
00237544. 


00237546 
00237548 
00237550 
0023755e 


SAE Ht A EE 0 a a 


kaw e aE 
0000 
e000 
e000 
0000 


é 


it 


~ 


@eeeeeeee# ee 8 @ 8 8 @& @ @ @ @ @ 


e de 


00237554 
00237556 
00237558 
. ee 90237560 

a ee Pats, ie es 00237562 
OS := £0 LIT "INV USER? ® 3 : aoe : 00237564 - 
oS 00237566 

E2k 00237568 
DS se 2 LIT "NO" f 00237570 

gC TO FILENAME 3 | ieee 00237572 

EM ooo On Ope ar era 
OS :3 3 LIT "BAD" 5 | RE eo OU Bar S76 

GO TO FILENAME 4 CU sons es OO RII SES 

E53 00237580 
0S 3:8 8 LIT "NO FILE * 3. 00237582 

£03 ao | ” seen cto 4 MO2Z37984.. 
DS 88-7 CHR 3 ee ee O88 7S b6 
“$l t= SI +# 1 3 oe ee 90287588 

OS 3 ? CHR 3 RE US ie 99237590 

GO TO CRUNCH 3 00237592 

Eas ; 00237594 
OS :* 3 LIT "OUPM 3 . a een eee eee 00237596 
FILENAMES : ee Desa rsee | 
AOS AScps 7 LIT " elLe: " 3 es ee 00237600 
E6bo ee 00237602. 
CS += 7 CHR 3 . 00237604 

CS ta LIT "ys" 3 00237606 

. SI s® ST + 1 2 ot nn, 90237608 
ee os Ae 7 CHR $ He COs oe 00837610 
ps” $a LIT et 3 EES ee oo 00237614 

SI ie S 3 002376146 

ol ss S 3 00237618 

26 CIF. $c = " ™ THEN i  , 090237620 

ae BEGIN Ce OOS arose - 
— DEBLANK? oe Chee OO2ITOS4 
SI t= Sl +44 TRG yo TI Ege 00237626 

If $c = " © THEN 00237628 

GO TO DEBLANK ; 00237630 

IF SC 3 ALPHA THEN Hianainccucnliimicenpneame nw OCT Oa € 

a re a eee | ing AO Se a OR RST ES a 

END ELSE | | ee 

‘DS t= CHR) } OEE oe Boge Ss O08 SR 6S 8: - 
END CRUNCH 4 00237640 
If A = "#000000" THEN A ts * "3 00237642 

Ip gp = "#000000" THEN g t= " "5 So corcshindetal 00237644. 
CRUNCH CPRETANK» Ke Ap BD i Ode arene 

— WRITETWX 3. : Ee ee ee 0237648 
TF. K LEQ 6 THEN ‘ ele es OO RSF GRO 
BEGIN 00237652 
ERRTOG #5 TRUE 3 00237654 
MOREINPUT %* FALSE 3 00237656 

NOSTAR ¢® FALSE 3 es 00237658 

XDEX t# 1 3 00237660 

END ELSE IF K # @ THEN 00237662 

ILFCRI t# 1 3 09237664 

END ERRORX 3 00237666 


0003 
0003 
0003 
0003 
0004 
0004 
0005 
0005 
0008 
0006 
0006 
0006 
00067 
0008 
0008 
0009. 
0009 
0040 
0010 
0010 
00414 
0014 
OOt 
0011 
0013 
0043 
0044 
0044 — 
0015. 
0015 
0015 
0016 
0016 
0017 
O017 — 
0017 
0018 | 
0019 
0019 
0020 
0020 
002% 
0021 
0024 
0022 
0026 
0026 
0087 
0028 
0029 
0029 
0031 
0033 
0034 
0035 
0039 
0042 
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oO 
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oO 
ee we ee Wo 


Lc) 
Q 
—4 
oO 
™m 
a 
tes 


st 4 a es es ay We a A 
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END FIL 


DEFINE OPENCHECK = IF FILECHECK (TRUE) THEN GO TO NEXT#, 
READONLY CHECK = IF FILECHECK (BOOLEAN (3)) THEN GO TG NEXT#e 

— SECURITYCHECK = IF FILECHECK (FALSE) THEN GO TO NEXT 3 oh 

PROCEDURE STATE (S) 3 


DEFINE ERROR CERROR1»s ERRORQs ERROR3s ERRORS) = 


BEG] 


ERRORX CERRORes ERROR3» ERRORS) 3 
GO TQ ERRQR1 3 


ENO 


SHCW (SHOW1» SHOWZ) = ERRORX (8 SHOW1s SHOW2)# 3 


Se ek & ee we we eR we eR Rk eK wwe ee he ee Ke eR eK x ee * 


N 


ERROR#s 


BOOLEAN PROCEDURE FILECRECK (B) 3 


VALUE B 


- BOOLEAN 


BEGIN 


LABEL N 


IF B 
BEGI 


* 
4 
Bi; 


EXT 3 


THEN 
N 


IF FILECLOSED THEN 


END 
B 


ELSE 


BEGIN 


IF FILEQPEN THEN 
EGIN : 

SEARCH (DISCs 
IF INPUT CO) LSS FILEACCESS THEN 


INPUT ECe]) 3 


CHARGE (STATION) 3 
ELOSE (DISC) 3 


FILL DISC WITH PREFIX» SUFFIX a 


SEARCH (OISCs» INPUT C#d) 3 


IF INPUT (0) LSS FILEACCESS THEN 


BEGIN 


FILEACCESS $3 0 3 
INQRDER t= TRUE 3 


ERROR CNEXT? A + REAL CINPUT [0] LSS 0)» PAGE IMS SUFFIX) a 


ENO 3 


END 3 


EN 


IF FALSE THEN 


NEXT! 


DG 


FILEGHECK t* TRUE 3 


VALUE S$ 


. BOOLEAN 


BEGIN 


STREAM PROCEDURE STUFF STATE (Ns RECORD» Pos C) 3 


a VALUE. No 


BEGIN 
LABEL E 


N (OT ## C 3 


ECHECK 3 


A 
‘S$ a 


XIT 3 
SI t= PQ 


4 


ERROR (NEXTs Se " OPENS “» PARAMETEROQ) 3 


IF Be€4631) AND READONLYFILE THEN 
ERROR (NEXTe O» "READ ON"s "LY FILE") 


* 


4 


11.18 43 LONG» 
06237668 
00237670 
00237672 — 
00237674 
06237676 
00237678 
00237700 
06237740 
00237750 
09237760 
00237770 
00237780 

START OF SEGMENT 
00237790 
00237600 

— 90237810 - 
- 90237820 
00237830 
00237840 
00237850 
00237860. 
00237870 
00237880 
00237890 
00237990 
00237905 
00237940 
00237920. 
00237930 
00237940 
00237950 
00237960 
00237970 
90237980 
00238000 
00238010 
00238020 
06238030 
00238040 
08238050 
eee 00238060 

12.18 37 LONG: 
00238070 
00238080 

00238090 
00238400 
06238200 
90238300. 
06238400 
00238500 
START OF SEGMENT 
00238600 
 9a239000° 
00239400 
00239200 
06239300 


AN At tt 


NEXT SEG 
0054 
0051 
0051 
0051 
0054 
0054 
0084 
005% 
0054 
0054 
0054 
0081. 


KREWE E EE 


0000, 
9000 


0000. 


0004 


— 9005 


0006 
0041 
O0k 
0012 
Qol2 


0014 


0015 
0016 
0017 
(0019 
0022 
0024 
0025 
0026 
0027 
0026 
0031 
0034 
0034 
0031 


_ 0032 
0033 


0033. 
NeXT SEG 
00$1 

0051 
00514 — 
0054. 
(0054 
0054 
oer} 
blak dh dada tadtolee 


0000 


12 


2 


13 


o 


nye [bes 


05 #= 25 WOS 3 
SI %= RECORD 3 
05 $= 10 WOS 3 
WUMP. QUT TO EXIT) 3 
S] t* ¢C 3 
Pr ote PO 3 
OS t= 25 wWDS 
DY] ts RECORD 
DS t# 10 WDS 
EXIT: . 
END STUFFSTATE 3 
INTEGER Ie K 3 
CLOSE (DISC) 
K 82 IF S, feett THEN SLOTI ELSE 46 3 
Ip S THEN 
BEGIN 
STUFFSTATE (12 RECORD» PARAMETERQs CONTROLS (381) A 
WRITE CRL CKJs 90» CONTROLS [¥*]}]) 3 
IF Sel 4631] AND FILEQPEN AND REAL CMOQDIFIED) NEG Q THEN 
BEGIN 
: #3 DeLEFTSIDE 3 
 €0R I #* QO STEP 4 UNTIL K DO 
BEGIN 
IF MODIFIED THEN 
WRITE CR2 €32xSL0TI + IT]s 2565 LINKLISTS: LUSERIO«1s a 
MODIFJED ts MODIFJED.(16:31] ; 
END 3 
MODIFIED 5% FALSE 3 


tee es tee 


ENDO 3. 

END SAVESTATE ELSE 

BEGIN 
READ (R1 CK]s 90» CONTROLS £*1) 3 
STUFFSTATE (Os RECORDs FPARAMETEROs CONTROLS [£38]) 4 
FILL DISC WITH PREFIX» SUFFIX 3 
IF SeC4621) THEN 

MODIFIED t= FALSE 3 

USER32 $= USER x 32 3 

END RESTORESTATE 4 

PREWMERE s= "i 3 

END STATE 5 


DEFINE. SAVESTATE = STATE (BOOLEAN (3))#s. 


RESTQRESTATE = STATE (BOOLEAN (2))#, 
UNSWAPSTATE = STATE (FALSE) #» 
SWAPSTATE = STATE (TRUED# 3 


Boe ke 


DEFINE. WAIT CWAITIe WAIT2) = 


BEGIN 
IF NOT WAITING THEN 
IF WAITX CWAITIe WAIT2) THEN 
fi TO NEXT 3 
ENDA 


| BOOLEAN PROCEDURE WAITX CTOCKS» FORCED) 3 


VALUE TOCKS=» 
FORCED + 
INTEGER TOCKS 3 


BOOLEAN FORCED 3 


90250000 
00250600 
90251000 


- 00253000 


~ 90260000 


— 06265100 


90239400 


00241700. 

00246000. 
00247500 

00248000 


00254100. 
00254200 
— 00254500 
90255500 


00262500 
00263000 


00264500 


00239600 
06239700 
09240400 
09240500 
09240600 
09240700 
00240900 
00241000 


00248500 
00248600 
OQ248700 


09251500 
09252000 
09252500 


09253100 
00253200 
09253500. 
00254000 


00256500 
06257500 
09258500 
00259000 
06259500 


00260500 
00261000 
90262000 

56 LONG 


00263500 
00264000 


0@265000 


06265150 
00265200 
00265250 
00265300. 
00265500 
090265600 
09265700 
00265800 
00265900 


Mt A i ie 


0054 
0054 


0051 


2 
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e 
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BEGIN 


DEFINE SEGMENT =4 & 


IF TeckS GE@ CLOCK OR FORCED THEN 
IF @ THEN 
BEGIN 


READY®@ (READ YOTOP te READYQTOP *# 4] t= USER # 
INREADYQ #3 1 3 

WRITEQUEUED 3 

N t= RESETN 3 

IF NOTFIRSTINPUT THEN 

 SAVESTATE 3 

STATION t% 0 3 

WAITX %& TRUE 3 


END ELSE 
BEGIN 


IF FORCED.(C46#1) THEN 


~ BEGIN 


WAITX 3 BOOLEAN (USER #& Reapya (1]) 3 

CHARGE (CSTATIONI) 3 

INREADYS &= 0 3 

FOR I %= 2 STEP 1 YNTIL READYQTOP OO 
READYG CI * 4) &% READY C12 ; 

READYQTOP t= READYGTOP = 1 3 

RESTORESTATE 3 

ae C10 CUSERJ]» 30 IMAGE [4]) 3 


END 

WRITE (PRETANK (Cx]> WAITED ; 
WRITETWX 3 

WAITFLAG #* TRUE 3 

READYG [0] #3 YSER 3 


END 3 
END WATTX 3 


DEFINE INTERRUPT CINTERRUPT1) = INTERUPT CINTERRUPT1e Or O)#e 


INTERUPT CINTERUPTIs INTERUPT@s INTERUPT3) & 


BEGIN 


IF CEOCK 3% CLOCK = INTERUPTI LE@ NEXTCLOCK THEN 
OUTPUT ; 

IF CEOCK LE@ 0 THEN 
IF INTERRUPTS CINTERUPT2* INTERUPT3) THEN 


GQ TO NEXT 3 


oe ENDED ae | 
- BOOLEAN PROCEDURE INTERRUPTS (LIBs (OC) 3 


VALUE LIBs LOC 3 
sew LIBs Loc 3 


TO re 


GIN 
Caeet. NEWBIRD» NONES NEXT 3 


CLOCK t= MAX (50s TO x 450 7 (MTL + T1 fF TIMEX)? 


IF WAITING THEN 


BEGIN 


INPUT (5] t= 0 & "e"E134385) 3 
READ CTWXINPUT COs 0)» 8% INPUT C4) [NONE 3 
QINPUT #8 TRUE 3 


NEWBIRD? 


SWAPSTATE 3 


00266000 
00266100 


START OF SEGMENT 


09266200 
00266300 


00266400 


00266500 
00266600 
00266700 
00266900 
00267000 
00267100 
00267200 
06267300 
00267400 
06267500 


00267600 


~ 00267700 


— -00268400— 


06267800 
00267900 
00268000 
00268100 


00268200 - 


06268300 


06268410 
09268500 
09268600 


00268700 


14 18 


00268800 » 
00268900. 


09269300 


00269400 
43 LONG 


00282000 


00282100 
00282500 


00283000 


06283500 


90284000 


00264500 
00285000 
06285100 


00285200 
00285500 


00286000. 
“START OF SEGMENT 


00286500 
00287000 


_ , 90287500 
00288000. 


06288500 


00289000 


00289500 
00290000 


T 
T 


0054 
0051 


ek ekehetek 


a ase ss ss sd ss st ss ts os 


A491 a 


0000 
0004 
0002 
0003 
0008 
0007 
0008 
0008 
0009 
0010 
0044 
0012 
0012 


0082 


0013 
0014. 
0015 
0017 
0019 
0021 
0025 
0026 
0027 
0032 
0032 
0036 
0037 
0039 
0040 
0040 
NEXT SEG 
0054 
0054 
0051 
0051 
0031 
0054 
0054 
0051 
0054 
0051 
0051 
0004 
0054 
O05: 
Tere 
0000 
0007. 
0008 
0008 
0010 
0017 
0019 
0020 


14 


2 
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eeeeeeee®e@ee@ee8#eeeeee*nea” 


& 


@®evsv5eoe3eweee eee ee 8 ae OehlcrOehlcrhhlhlele le 


CLOSE (LIBRARY) 3 : yes 09200100 


CHARGE (STATION #3 0) 3 00290500 
INREADYQ %= 3 4 00291000 
Q t= TRUE 3 . 00291500 
PROGRAM 3 EEO Og oun 00892000 
@ t= FALSE 3. as La ees 00292500 
USER t® READYQ (0) 3 ae . 00293000 
CHARGE CSTATIONI) 3 00295500 
INREADYG #2 0 3 . 00296000 
UNSWAPSTATE 3 . 4 09296500. 
SECURITYCHECK 3 er Se ee 90297000 
IF LIB NEQ@ O THEN | a ee 092971400 
BEGIN : 90297200 
FILL LIBRARY WITH IF BOOLEAN (LIB) THEN PARAMETER ELSE. PREFIX» 09297300 
IF BOOLEAN (LIB) THEN PARAMETER? ELSE SUFFIX 3 00297400 
READ SEEK (LIBRARY CLOCJ) 3 aes LSucimtiecasatian) gaa OOe et aee 
pee END #. . : Ce ee OB BOR BOO 
NONE? . bons ee 06297700 
IF. RATTLELNDEX ts RATTLEINDEX # 1 # 5 THEN a a ne 00298000 
BEGIN 00298500 
FOR TINK t= O STEP 4 UNTIL READYOTOP 00 00299000 
BEGIN maaee: ; ; 06299500 
WSER t# READY@ CTINK] 3 es ge 300000 
UF COUNTI LSS 0 THEN | EE ON 96300500 
IF REAL CBOQLEAN (STATUS (STATIONI» 0))2,-02239) AND : 06301000. 
BOOLEAN ¢%6C")) = QO THEN 06301100 
WRITE CTWXOUTs RATTLE) 3 00301500 
END 3 . a ; 00302000 
USER t3 READYQ CRATTLEINDEX t% 0] 3 Og Oe oe Oo g0eS00 
CHARGE (STATION) 3 fe oy EEG - 90302700 
IF 2. BIGBIRD + 2 4SS STATUS CZIPPY [*]). THEN Ae ee 98303000 
60 TO NEWBIRD 3 00303500 
IF FALSE THEN 00304000 
NEXT$ | a . 00304500 
von INTERRUPTS t# TRUE 3 ; Oe ee 8808000 
END 3 a ee 99808900 
END 3 a 08306000 
CLOCK t= TO 3 06306100 
T1 33 TIMEX 3 00306200 
IF QUTPUTREADY THEN 09306300 
- NEXTCLOCK t= CLOCK = TO x CTN = T41 = 90) 4 150 a Mone Oe ee os QD S06RD0 
END INTERRUPTS i - — ae 0@307000 
| Cee 45 18 93 LONG, 
a ee oe ee ee ee ee ee ee ee ee ee ee 00318000 
INTEGER PROCEDURE XFILE (Pe S» FS) } 00318100 
VALUE Pe Se ES. 3 . a 09328110 
REAL Ps Ss FS 3. ae OO 0981 b 1 R0- 
BEGIN } EEE eT a a 
ae DER INE SE@MENT ee ed “yes SE 090318140 
. START. OF SEGMENT 
IF P = 42 THEN 003148150 
BEGIN . 09318160 
If NUML THEN 00318170 
BEGIN 7 08318180 
NUM{ = FALSE 3 09318190 
P t= PARAMETER, t= OCTDEC CPARAMETER1) 3 09318200 


END ELSE 00318210 


A hh 99999 9999 9 tt 


0020 
0022 
0024 
0026 
0027 
0028 
0030 
0031 
0033 
0035 
0035 
003? 
0038 
0038 
0044 
0045 

Q050. 
0050 
0051 
0053 
0054 
0055 
0055 
0056 

0057. 
0062 
0063 
0068 


0071 


0073 
0074 
0078 
0078 
0079 
0080 
0080 
0080 
0080 
0084 
0083 
0083 
0088 
NEXT SEG 
0051 
0051 
0054. 


0081 


0054 
0051. 

ekehhekun 
0000 

0000 
0004 
0002 
0002 
0004 
0006 


e 


16 


®eesevsseesveeusexseenheeneneee#ee#e ae 


©oeneneeeee &@ © 6 @ 


@ 


P t= PARAMETER] 3 : ve 00318220 


T 0006 
IF NUM2 THEN 06318230 T 0007 
BEGIN 00318240 Y 0008 
NUM2 $8 FALSE 3 . 06318250 7 0009 
S$. #= PARAMETER2 t= OCTDEC CPARAMETER2) 3 . ous 00318260 T 0010 
END ELSE . tad a pyaieere t a 
§ ts PARAMETER2 3 Bey : 318280 7 0013 
END 3 a 06318290 T 0014 
FILL LIBRARY WITH Ps S 3 00318300 T O0O14 
SEARCH (LIBRARYs INPUT fe]) 3 , ma ner: 00316310 7 0018 
IF XFILE a INPUT (0] LSS FS THEN aie fae fare 93489207 OORG 
oe ERRORX (4 + REAL CINPUT COU LSS O)s Ps S) 3 2 foes 00316330 T 002) 
END XFILE 3 ALT 003183950 7 0024 
16 1S 27 LONGs NEXT SEG @ 
| 00318360 7 OG81 
PROCEDURE READIN 5 Set eet 00319000 7 0051 
- (BEGIN . a 00319200 T  OO$1 
BOOLEAN PROCEDURE MORE 3 ee 09319210 7 0053 
ee START oF SEGMENT weeeteetne i? 
BEGIN 003219220 T 0000 . 
LABEL NEXT» 00349230 T Q000 
a START GF SEGMENT *#ktwttaten 18 
EXIT. 2 ee 09319240 T 0000 
ruteoee. STREAM PROCEOURE TRAILINGBLANKS (Se N) 3 poe 98819280 T9006 
VALUE NS ; 00349260 T 9000 
BEGIN | 09319270 T 9000 
LABEL OONE 3 . 06319280 7 0000 
S132 S 3 epetme nadie sae 00319290 T 0000 
SIT se S$]. #7 3 : eee a O0889900 TT. OO00. 
$s ts steely He : , ee OO 919810 TF. 0000. 
C1 EOS ane 0031493920 T 0000 
2 ne CIF SC NEQ " * THEN JUMP QUT 2 TO DONE 3 00319330 T 00061 
St ts S$] * 43 06319340 7 0003 
. Ol += DI + 8)) 3 Te eT 00319380 7 0003 
DONES ee ~~ 00319360 T 0004 
TRALLINGBLANKS #= OF 3 ee 09319370 T 0004 
END ee 3 a Se 00319380 tT 0005 
INTEGER XSU 00319390 T 0006 
DEFINE FILEINFO = XFILETYPEd@ 3 09349400 T 0006 
IF. FILEQPEN THEN heed laf NT satel caters 00319410 T 0006 
BEGIN - Poe 003819820 T0097 
Ip N GTR FINITY THEN . bo ee OO9LEGI0 T0008. 
IF N = LL CLASTeFJ,S + INC GTR FINETY THEN” CE ee 00319440 7 O009. 
BEGIN . 06319450 T 0016 
N &# FINITY 3 06319460 7 0016 
. BARON (NEXTs OF “SEQ, OV"s "ERMFLOW") | i ee , 00319470 T 00147 
END 3 DO ee OO9N9 ERO T0083 
IFN LEQ 9 THEN Oe ee OG ELT9R9O F 0083 
: ON PROD RS Coenen een ee OORT I SOO To 0029: 
END 3 00319510 7 0025 
IF MOREINPUT THEN . 00319520 T 9025 
REALS, ETAT eT eee .., 99319530 TF 0025 
READ (IO CUSER + MAXUSERSJ* 302 IMAGE [¥]) 3. ve a QO ASGSRO 7. 0086 - 
CHRS t= NCKRS 3 OS 003$ SS 85.4. 0089 
GO TO EXIT 3 EE ~-0Q319550 T 0035 
END 3 00319960 T 0035 
IF xDEX LSS OQ THEN 00349570 7 0035 


@®eeee#eeeee@eeeee*#ee#e#eses#ea”* 


e 


@ee#eee#8t @&eee8#0ee80e880080e8@06808608 @ @ 


BEGIN 
NEXT$ 
I¢ NOT NOSTAR THEN 
WRITESEQUENCE 3 
CHRS #3 0 3 
SAVESTATE 
END ELSE 
BEGIN 
XSUB $= XDEX X 13 34 
WHILE XN 23% XN -# 1 GTR XLAST 00 
IF XREPEAT #3 XREPEAT = 1 GTR Q THEN 
XN 88 XSTART 
ELSE 
BEGIN 
IF XSUFFIX = "#MACRO#" THEN 
BEGIN 
IF XFILE CXPREFIXs XSUFFIXs 7) 48 7 THEN 
— . GQ TO NEXT 3 
READ (LIBRARY) i 
DETACH # 
CLOSE (LIBRARY» PURGE) 3 
REATTACH 3 
END 3. 
IF BOOLEAN CXNCHRS,f121]) TREN 


BEGIN 
READ at L2XMAXUSERS#XMAXXUSER#XDEX J], 309 IMAGE [#}) 3 


GHRS 3 ABS CXNCKRS) 3 
XDEX $= XDEX = | 3 
GO. TO EXIT ; 
END 53 
EF XDEX 48 ‘XOEX =" 1 LSS QO THEN 
GO TO NEXT 3 
Keue te XDEx x 13 3 


ENB 
IF XPILE: CXPREFIXs XSUFFI xe 2) LSS 2 THEN 
GO TO NEXT 3 
IF XECHO THEN 
WRITESEQUENCE 3 
SAVESTATE i: 
INTERRUPT (3) 3 
READ (LIBRARY CXN *™ L)e 10 IMAGE Eel) 3 
CLOSE (LIBRARY) & ~ 
CHRS 8% (J 83 FULLLENGTH) * 


TRAILINGBLANKS CIMAGE | CreC4is4 ei), Is t41369) ; 


IF X€CHO THEN 
WRITEROM CIMAGE Ce), FALSEs XFILETYPE) 3 


oe EMIT 


MORE t# TRUE i 
ENB 


END MORE 3 
BOOLEAN STREAM PROCEDURE LINEEDIT (S» o* Ce CHRS» Pe OVERSOs 


VALUE Ce 
Pe 
OVERS8O>s 
EIGHTY1 3 
BEGIN 


00319580 


00319590 
00319600 
00319610 
09319620 
09319630 


00319640 


00349650 
00319660 
00319670 
00319680 


90319690 


00319700 
08319710 
0@319720 


00319730 
00319740 
00319750 
00319760 
OO3L9770 


090319780 
09319790 
09319800 


~ 09319810 


06319820 
00319830 


06319840 


09319850 
00319860 
00349870 
09349880 


06319890 
06319900 
06319910 
06319920 


90319930 


00319940 
00319930 
00319960 


00319970 
00319980 
90319990. 
— 09320000 
09320010 


06320020 


09320030 
999320040. 
00320050 
00320060 


00320070 


$39 LONG 
00321000 


00321100 
09321200 
09321300 
00321400 
09321500 


zi peep 4e oF i ae a ee ae a eG oa wee 


@®eeeeeeeeee%ee@ee%e%#e8e8eee@ 


LOCAL Te 


PERCENTis PERCENT 3 
LABEL AROUND» NEXT 3 
P ¢Dy t= LO 


ge Loc ¢ 


3. 
T CDI te OI 


15 DI + 


5S6CIF Sc a 


AROUND: 


GO TQ 
IF Sc « 
BEGIN 

TALLY 

GQ. TO 
END } 
IF SC & 


C PERCENT $ DS t# 14 LIT "APmenec<)>¢S]2") 3 


; 


+ 32.3 DL B® DI 4 3233 

C 3 . 

ew THEN 

AROUND 3} 

m2" THENS DISCONNECT OR EXCLAMATION 


t= 43 


AROUND 3 


"2" THENS? LINE ERASE 


BEGIN | 
¢.#8 TALLY # 
QVERBO %s TALLY 3 
DI t= 0 3 
GQ TQ AROUND 3 
END 3 
IF SC s "S" THEN% BACKSPACE 
BEGIN. 
S$: ST 3 
T 98 O1 3 
SI ts LOC C 3 
Dy t= LOC LINEEDIT 3 
If 8 3C NE@ DC THEN 
BEGIN 
OQOVERSQ (S] $= SI = & 3 
DI ¢# LOG EIGHTY, 3 
IF 8 Sc = OC THEN 
QVER@Q &% TALLY) 3 
St te ¢ ; 


DY ts DI" 43 
END ELSE 
Ol t= T 3 
Sy] 4% 3 3 


END ELSE 
BEGIN | 
S$ a8 SJ] 3 
OvEREO (Ol 8 OL + 1 i 
SI t= ¢ 3 
SI] t= SI +: 8. 3 
C t SI 3 
ST ts $ 3 
JUMP OUT TQ ARQUND) 3 


00321600 
06321700 
0@321800 
00321900 


09322000 - 


00322100 
00322200 
06322300 
00322400 


00322500 
09322600, 


322700 


090322800 
00322900 


06323000 
00323010 


00323020. 
06323030 


00323040 


00323050 


09323100 


09323200 
- 00323300 
— 00323400 


09323500 
08323600 
09323700 
090323800 


00323900 
90324000 
09324100 


09324200 
00324300 


00324400 
00324500 


00324600 
00324700 


09324800 


00324900 


00325000 
00325100 
98325200 
00325300 


06325400 
06325500 


00.325600 
00325700 
00325800 
06325900. 


00326500 
09326600 
00326700 


00326900 


00327000 
00327400 
00327200 
00327300 


M4 eis ire a ee eh sg ee 


~ 


Cc é 
| T te DI 3 00327500 T 0023 
: P COL i= S$ 3 00327600 T 0023 
 - Sr ss T 3 08327700 T 0025 @ 
SJ] ts S] "43 08327800 T 0025 
IF $C = "5" THEN i oe 0887900 T0025 
@ BEGIN ee 99928090 T 0026 —¢ 
Sl $= LOC PERCENT 3 oo QB2B100 T 0026 
7 CIF SC = OC THEN 09328200 T 0026 : 
@ BEGIN 00326300 T 0037 € 
Dl ts 7 3 _ 003228400 T 0027 _ 
: Ol ts or "13 00328500 T 0028 : 
€¢ DS t# CHR 3 (08328600 T 0028 §@ 
. Sl te Si 00328700 T 0028 
JUMP GUT 2 TO ARQUND 3 00328900 T 0029 
@ END 3 00329000 T 0029 @ 
SI. ts SI +13 00329100. T 0029 
: ‘DI t= DI 4) 3 00329200 T 0030. 
END) 3 00329300 T 0030 @ 
: SI t= C¢ 3 00330600 T 0030 
. S] $= SI + 8 3 00330700 T 0031 
-@ cr SI 3 09330800 T 0034 € 
: SI t= LOC ¢ 3 _ 00330900 T 0031 
: DL t# LOC EIGHTY 3 00331000 T 0034 23 
e IF 8 SC = DC TREN 09331100 T 0032  € 
| BEGIN 00331200 T 0032 
: TALLY 83 4 3 00331300 T 0032 
@ OVERSO #& TALLY 4 00331400 T 0033 @ 
| TALLY 48 0 3 09334500 T 0033. | 
SEND OB Soo co 00331600 T 0033 : 
@ Sq t= $3 00331700 T 0033 @ 
! DI ts 7 3 00331800 T 0034 
IF TOGGLE THEN 00331900 7 0034 
@ DpIot® OF + 4 06332000 T 0034 @ 
: ELSE BEGIN (09332100 T 0034 
. pS 8% CHR i 00332200 T 0035 
¢ $lt# SI 13 00332300 T 0035 e@ 
: END 3— 09332400 T 0035 
| GO TO NEXT 3 09332500 T 0035 
6 END 3 00332550 T 0035 e 
7 IF Sc = "@" THEN JUMP OUT 3 00332560 T 0035 _ : 
. - TF SC # "2" THEN JUMP OUT 3 00332570 T 0036 
& WEXTI er 06332580 T 0037 8 
eb tm SE ao bP 00332600 T 9037 
SI t= Loc c 3 00332700 T 0039 
®@ DI $8 CHRS 3 00332800 T 0039 @ 
; DS #8 WOS 3 98332900 T 0039 . 
“ —- LINEEDIT #* TALLY 3 90333100 + 0039. | 
e - enn LINEEDIT ; ~---Q0333200 T 0040 @ 
~-BOGLERN PROCEDURE FINALANALYSIS 3 00333210 T O04,. 
BEGIN 00333220 T 0044 
& STREAM PROCEDURE MUVE (Ss De SKPS* SKPO» N) 09333230 T O04} @ 
Mi START OF SEGMENT «e*9¢eunwn 
VALUE SKPS»s SKPDe WN 3 06333240 T 0000 
©@ BEGIN 09333250 T 0000 @ 
LOCAL T 3. 09333260 T 9000 
ST $= LOC N 3 06333270 T 0000 
@ DI t# LOc T 3 00333280 T 0000 . 
e : @ 


® © @ 0880606 @ 


@®eeeeeeeee#eeeea 


END 


INTEGER STREAM PROCEDURE HUNT (Se. De Cs N) 4 


VALUE ¢ 
Nd) 


MOVE 3 


# 


BEGIN 


LABEL A 
XIT 3 


Sf ts 


GAINs 


) 
DI ss D0 


OS 33 8 LIT" " 3 
DS 3% 9 WOS 3 


3 if 
; 


D $= TALLY 3 


ODI sa LOC D3 
Sy re Loc Cc 3% 


Sl ¢3 SI] + 7 3 


AGAIN 


“VET St #0C THEN 
6O TO XIT 3. 


OI t= Loc 0 3 
IF $C = OC THEN 


GO TO XIT 3 


HUNT 32 SI a. 
GO TO AGAIN 3 


XITt 


OS 3# CHR 3 
SI += LOC N 3 


Si 43 S] 


ST 8s NG 


+ 


i 


S] t= St" 8 


N $= SI 3 
SI 33 3 3 


S ts SJ 3 


S$] #= HUNT 3 
$I ts 51483 


END HUNT 3 


BOOLEAN STREAM PROCEOURE MORE CIMAGE>» 


bee & 


® 


a 


GIN ae 
Pe oTES. 


ENDQUOTEs - 


ZERO,» 
TEMP 


BUMP» 
FOUND 


XITs 


} 


QUOTEs 


LABEL NOTHINGYETS 


 FOUNDSEMICOLANs 
LOC» 


- 


Swe Sen fen 


DS t# 32 CHR) 


INPUTs Ce CHRS) 


90333290 


06333300 
09333310 
09333320 


00333330 


00333340 


a 


06333360 
00333370 
00333380 


00333390 
06333400 
09333500: 


06333600 


00333700 


00333800 


 0@333900 
00334000 
00334100 
00334200 


00334300 
06334400 


00334500 
06334600 


00334700 
00334800 
00334900 
00335000 
00335100 
00335200 


00335300 


00335400 
09335500 


00335600 
00335700 


00335800 
06335900 
06336000 
00336400 


00336200 
00336300 


06336400 


00336500 


00336600 
08344000 


06344010 
3 344500 
be 345000 

ce geneasen. 


00345510 
06346000 
00346500 


00347000 
00347500 
00348000 


06348500 
08349000 


Sl a pe ia a a ee ea 


a 


® 


® @ee#206806e 


SI] 8% IMAGE 3 

DI := LOC QUOTES 3 
O08 t= 2 LIT *"" 3 
OS. 8] 6 LIT Mee CIC 
DI t= LOC ENDQUQT 
DS :8 2 LIT "35" 3 


IMAGE t= SI 3 

SI '% Loc. C 3 

OL #2 Loc ZeRQ 3 

IF 6 SC -# DC THEN 
GO TQ XIT 3 

SI t= C3 

SJ] #8 Sr-= & j 

G.ts S13 

Sf #5 IMAGE: 3 


CL $* Cl + MORE 3 


GO TO NOTHINGYET 3 
GO TO LOOP 3 
GO TO FOUNDGUOTE 3 


NOTHINGYETS | 


IF. SC = ALPRA TREN 
GO TQ BUMP ; 

IF SC = " * THEN 
GQ TO BUMP 3 

DI t= LOC QUOTES 3 

4 CIF SC es OC THEN 

BEGIN 
TEMP r= SI 3 
“ENDQUGTE #= O1 3 


DI #= LOC ENDQUOTE 


S$] %= ENDQUOTE 3; 
O$ #3 1 CrHR 3 
TALLY ts Soa 
MORE 32 eee ; 
S$] t= TEMP 
@UMP QUT TO * LOOP 

END 3 

S]o1% S$] * 4 3 

DI #3 OL + 420 3 

IF $C 3 "3" THEN 


GO TO FOUNDSEMICOLAN 


St ts Sy + 1 3} 
G0 Te Ue i 


-FOUNDQUOTES 


“OI te LOC ENDQUOTE 
IF $C = OC THEN 
BEGIN 

OY t= DIO" 1 32 
QOS #8 LIT "3" 3 
TALLY t# QO 3 
MORE 3% TALLY 2? 


END 3 
GO TO LOOP 4 


00349100 


00349500 
08350000 
00350500 
00351000 
00351100 
06351200 
06351300 
00351310 
00351330 


009351340 
00351350 


00351360 
00351370 
09351380 
08351390 


060351500 


00352000 
0@352500 
00353000 
00353500 


06354000 
09354500 


00355000 
09355500 
00356000 
00356500 


00359000 
00359500. 
00360000 


. 360500 
361000 


ese esbe 


00362000 
00362500 


06363000 
00363500 
00364000 
06364100 


(90364200 
09365500 
00369000 


00371500 
00372000 
00372500 


3 09374500 
00375000 
00375500 


00376000 
00376100 
00376200 
00376500 
00377000 
09377500 


003768000 © 


090378500 


aga cetea oe or eh ee i gy ee cy ete es er ok a eg 


0016 
0016 
0016 
0016 
0017 
0Q16 
0018 
0018 
0018 
0019 
0019 


0019 


0020 
0020 
0020 
0021 


0024. 


0021 
0022 
0022 
0022 
0022 
0022 


0023 _— 


0023 
0024 
0024 
0024 
0025 
0025 
0026 
0026 
0026 


0027 


0027 
0027 


0027 


0028 
0026 
0028 


0028 


0029 


0029 


0030 
0030 
0030 


0030 


0030 


0031 


0031 
0034 
0032 
0033 


0033 


0033 
0033 


0033 
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. 3 ry ¢ a G 
ST #8 LOC ENDQUOTE 3 3 ee - 90378600 T 0033 ad 
DI +3 IMAGE 3 | 00378700 T 0034 
DS s= 2 CHR 3 00378800 7 0034 © 
GO TO EXIT 3 00378900 T 0034 . 
— FOUNDSEMICOLANS ee 06378910 T 0035 
TALLY #2 104. : 7 00378920 T 0035 - | 
MORE t= TALLY 3 00378930 T 0035 
SI t= Loc Cc 3 00378940 T 0035 
DI t= CHRS 3 00378950 T 0035 @ 
DS 38 WOS } | eee 00378960 T 0036 
S} ## Loc c 3 we : 00378970 T 0036 
DI t= LOC TEMP 3 . a SN es 00378980 T 0036 ¢€ 
Sy te Sy +63 Re ee ee 00378990 T 0036 . 
DI t# DI + 7 3 06379000 T O00a7 
DS += CHR 3 06379040 T 0037 @ 
$I Hs er 3 - ee , 90379020 T 0037 
DI ts TaPUr oe oe 06379040 T 0038 6 
TEMP (OS $2 32 CHR 3 DS #* 32 CHR) 3 HOES : - 00379050 7 0038 
pS t3 ¢ CHR 3 00379060 T 0040 
EXITS 00379070 T 0040 € 
END MORE 3 re 09379900 T ad40 
INTEGER STREAM PROCEDURE FIX CIMs TABs Ce ds Pe GQ) sb. ee ee — 90380000 T 0042 
VALUE TABs eae 09380500 T 0042 @ 
Ce ; : ee 06381000 T 0042 
Pe 00341100 T 0042 
Q3 09381200 T 0042 @ 
BEGIN — 7 00381500 T 0042 . 
LOCAL T i Ce 2 gegee2qoo 7. 0042 
_ P (SI ts IM i oes 90382100 T 0042  €@ 
IF SC = "%" THEN ee 99982440 T 0043 
BEGIN 00382120 T 0043 
SI ts SI #43 00382130 T 0043 e 
IF Sc = "*" THEN af «00382140 T 0044 
BEGIN ; pe gg ae21s0 7. 0048. 
SI #5 ¢ 3 ae oe 06382180 Tr 0045  § 
Sl $= SI * 83 | : 00382190 T 0045 
C 3% ST 3 00382200 T 0046 
TALLY $8 1 3 00362210 T 0046 6 
FIX t= TALLY 3 | 00382220 T 0046 7 
ee ENDS Os ee abaege30 tT . O0N6 " 
END) 3 , | oe QO I8R2G0. T. 0046 e 
$y 15 23 Bn es 0388500 T OGE? a 
DI t3 Z 3 06383000 T 0047 
oS t= 6 LIT" " 5 00383500 T 0047 e@ 
DS $= 9 WOS 3 00384000 T 0048 
St s+ Loc ¢ 3 i 00384100 T 0049. a 
OL ba Loc T 3 ee 06384200 T 0049 @ 
$l ts S$] + 63 Co 00388aa00 TF 0Oag 
DI s® DI + 7 3 00384400 T 06049 
DS t= CHR 3 : 00384500 T 0050 @ 
SIs IM 3. | oe . 003984600 T 0050. 
$Y ee. SIo+ FIX. 3 Ue 9ogeeesa rT Case 
OL we 23 3 po ee 06988700 T0054 @ 
DI ts DY + TAB 3 SS 06384800 T 0054 
T (COS t# 32 CHR # OS t# 32 CHR) 3 00384900 T 0054 
DS t= C CHR 3 | 90385000 T 0053 6 
€ 


e@ @ 


® @e#® @ @ @ @ @ 


$y 2s 


QI ts 
DS 3s 


Q@ (Ol 


END. FIX 3 


INTEGER Ce 


He 


K 3 
LABEL ERRs 


Zz 3 

IM 3 

10 WDS 3 

ts 1M 3 OS 82 1 LIT "O") 3 


NEXT # 
NOST.AR se (FIRSTCHAR ¢ [MAGE (01) NEQ "*" OR H ts CHRS & Y. is 


AND REAODWRITEFILE 3 


- NOTFIRSTINPUT t= MOREINPUT 3 


IF NOSTAR THEN 


BEGIN 


I $s IF COBCLFILE THEN 6 ELSE 0 3 


_ TF. XDEX GEQ O THEN IF BOOLEAN CRP ERE LIES? THEN 1 48 9 odes 


— MOREINPUT #8 FALSE 3 
IF H + TABAMOUNT GTR LENGTH THEN 
@Q TQ ERR 3 
KH $= H + TABAMQUNT + J = FIX CIMAGE* TABAMOUNT + JT He 


ERR: 


FINALANALYSIS t= TRUE # 
ERROR CNEXTs Os "INPUT "se "OVERFLW") 3 
ENO 3 ay eaee 
MOVE (IMAGE (C,c4isd)]e ZyPPY CU,C4i84)]* C4583)» 
T.C45%3]2 KH = 1) 3 
MOVE (ZIPPYs IMAGEs Or O» 80) 3 
END ELSE - 
~ K. $8 5 3 
END: 2 
CHRS a3 H 3 
If XpEX 4SS8 0 AND NOT INL INETOG AND N $8 N#INC LSS INFINITY THEN 
WRITESEQUENCE 3 epee at 
oN ts Nos ING 3... 
~CEND 
ELSE 
BEGIN 
IF H GTR 24Q TREN 
GQ TO ERR 32 
INEINETOG 8* FALSE 3 
MOREINPUT %* MORE (CIMAGE* ZIPPY» He NCHRS) 3 
IF MOREINPUT THEN 
WRITE (10 CUSER + MAXUSERS]» 30 ZIPPY {(*)) 3 


ZIPPYs. TRANSLATING AND KH GE@ 29 1] = 6) 3 


IF. COLUMNS THEN 


BEGIN. 
FOR 


“LF 


K t= 1 STEP 4 UNTIL COLSTOPS 00 
J $= MIN CHe MAXCOLSTOP) NEG 
C ts HUNT CIMAGEs ZIPPYs CHARACTER» 1) THEN 


BEGIN 
WHILE ¢ GE@ I t= COLSTOP [kJ pO 


END 3 


K $s Ko # 43 
3 


Jote Tos 4 


MOVE CIMAGEs ZIPPY* QO» Oe C) i 
If H #® H+ JTo-™ CC 8% C + 1) GTR FULLLENGTH taeN 
BEGIN 


00389000 
00389500 


00390000 


090390100 


06390500 


00390505 
00390508 
09390510 
09390540 
06390540 
00390550 
00390560 


00390570 


09390580 
00390590 
00390595 


00390600 


06390610 


(08390630. 


00390640 
00390650 


00390660 
90390670. 

00390680 
00390690 


00390700 
09390710 
00390720 


 epagora0 
09390760 
00390770. 


09390780 
00390785 
09390790 


09390795 
09390800 
00390805 


09390810 


00390820. 
00390840 
00390850. 
00390860 
09390870 


003908675 
09390880 


09390940 
09390920 


00391110 


00391120 


006391130 
00391140 
0039313450 
09391160 


00393470. 


00391175 
00391180 
00391190 


Sie ai ee a a ne ne gs ae ge 


@esecsnevusvsuesvee5xexeeenenee5.5xuaue50une5c5064o5u0oc205a 


® e@ ee e@#e8ee e668 le 


NEXTS 
END FINALANALYSIS 3 


INTEGER Ce 
 LASTUSER 3 


REAL X 3 


LABEL AGAINe 
INPUTFULL® 
EXIT» 
NEXT» 


ESCAPE 3 
INTEGER PROCEDURE READTWX 3 
BEGIN 
LABEL NONEs TROUBLE» EXIT 3 


REAL TIMEQUTs X - 
INPUT €5] t= O 4 MeMC 134395) 2 


TF NOT. Q THEN 


TIMEGUT ts IF OUTPUTREADY THEN MAXCQ#NING 15s CTN©TEMEX=602/602) 


ELSE 15 3 
READ CTWXINPUT (Os TIMEQUT)» ge INPUT C*¥]2 CNONES TROUBLE) 3 


GO. TO EXIT ; 


BEGIN. 
USER t3 MAXUSERS ; 
READTWX $= 1 2 % ESCAPE 
GO TQ EXIT 3 
END 3? 
IF QUTRUTREADY THEN 
OUTPUT. ; 
T1 32 TIMEX 3 
FOR USER t= 0 STEP 1 UNTIL BIlGBIRD po 
BEGIN 
—GHECK CSTATIONID & 
TF BOOLEAN CABNORMALEND) THEN 
BEGIN 
READTWX ts 1 3 
GO TO EXIT 3 
END 3 
: IF xX ee CTLs TIMEL) 71000 LSS 0 TREN 
X 23.X + 5184 3 
IF X GTR 15 AND x LSS 100 THEN 
BEGIN 
IF X LSS 18 THEN 
FIRSTCHANCE $2 Q 
ELSE IF X GEQ@ 36 THEN 
BEGIN. 
WRITE CPRETANK [#J]e EQW) 3 
WRITETWX. 3 
ABNORMALEND t= READTWX i ar | 
-. 40 TO EXIT 
END: pee IF. FIRSTCHANCE #0 THEN 
BEGIN 
E IRSTCHANCE te 13 
X &s TIME 3 
ERRORX (7s "LOOK "os "ALIVE, ") 3 


09391210 T 
00391230 T 

19 1S 1461 LONGs 
00391240. 
00391250 
00391260 
00392000 
06392900 
00394500 
00394600 
00394700 
00394800 
00394900 
00395000 
START OF SEGMENT 
00395100 

- 90398200 
(00395300 
090395400. 
00395500 
96395600 
00395700 
60395800 
96395900 
98396000 
00396400 
00396200 
00396300 

-. 00396400 
00396500 
(090396600 
00396700 
00396800 
90396900 
00397100 
00397200 
00397300 
00397400 
00397500 

se 09397600 
00397700. 
09397800 
00397900 
00398000 
09398100 
00398200 
09398300 
09398400. 
06398500 
00398600 
00398700 
06398800 
09396900 
00399000 
06399400 
09399200 
00399300 


AAA AA AAA a 


O1La7 
0158 
NEXT SEG 
00414 
0044 
0041 
0044 
Q041 
0044 
0044. 
Q041 
0044 
0044 
0044 


seeeeaker | 


o00c 
0000. 
0002 
0003 
0009 
0012 
0020 


17 


20 


@® e@6e8eeeeeee®e®ee®#ee®e*®eee®eeena a 


€ ee ee oe 
: TIMEI t2 X 3 ioe a 90399400 T 0063 
: END 3 06399500 T 0068 
e END 3 : 09399600 T 0068 
END 3 nee - 00399700 T 0065 
READTWX t= 2 3 | % AGAIN 09399800 T 0067 
6 GO TO EXIT 3 99399900 T 0068 
TROUBLE — gpa00000 T 0074 
REAG. (TWXINPUT (Os 0)» 49 INPUT CJ) 3 00400100 T 0071 
e INPUT C1] ts "2" 3 00400200 T 0077 
EXITL. | = Ane | 09400300 T o078 
| END READTWX 3 . Ce age 5 peaonagn Qo7T9 
e Su iss ee BO ES Ba LONG» NEXT SEG 17 
PROCEDURE INITIALIZE 3 a ee “" 99406000 Tr 0044 
. BEGIN 06407000 T 0041 
@ MONITOR INTOVRs FLAG 3 00407500 tT 0044 
: Paes ate - START OF SEGMENT. wause eaten 21 
KG INTEGER ly | 7 ce es 00408000 7 0002 
«@ ¢ a eee 99408100 7 0002 
: REAL Wo | Os 00408200 T 000¢ 
; BOOLEAN OLDUSER ; 00408500 T 0002 
€ DEFINE DIRCTRY = CONTROLS# 3 06408600 7 0002 
: LABEL OLD» | ; —— 08409000 T 0002. 
! FAULTs — cs 99409500 T 0002 
@ NEWs, : BG ee geek OO0 1. 6002 
MAILCALL» | Zs Oe 96M F0500 TT 8002 
| NEXT 3 00410600 T 0002 
¢@ USER t= BIGBIRD $= BIGBIRD + 1 3 00420000 T 0002 
ATTACH 3 anh a ee een 09421000 Tt .0004 
STATIONI 3# STATION 3 oe 00421800 T 0005 
e@ IF USERCODE] i= USERCODE = 7 1 TH Pe 3 048g800. T0007 
 -USERCODE $3 OCTDEX (100xSTATION, Totaiess chon, C1484)). 9423000 T COLO. 
COUNT] 83 "1 3 00426000 T 0014 
e ILFCRI *= 1 3 | 00426100 T 0016 
ERRORX (7s "VERSION"s OCTOEX C(VERSION)) 3 | 00427900 T 0018 
FAULTS ; oe 00427910 T 0020 
¢@ | READ (Ri C45] 90% DIRCTRY L*)) 3 . ee — 9GA27920 T 0024 
If QEDUSER THEN ~ , ON OOH BIGIO T0086 
| BEGIN 00427940 T 0026 
- | OLOUSER t= FALSE 3 06427950 T 0027 
T.teC #+C 3 cans : 00427960 7 0028 
ERROR (OLDs O» "BACKUP "» "ERROR, ") 3 ee a oamagrera 1 o0Rs 
@ ENO 3 en power eeO 7: 0034 
| G t= 200 3 eo O9N8B000 T0098 
FOR I t= 0 STEP 2 WHILE U t= DIRCTRY LI] NEQ@ 12 00 | 00428100 T 0034 
| @ IF USERCODE = Y THEN 00428200 T 0039 
BEGIN | a _—— 00428300 T 0040 
| OLOUSER t= TRUE 3 “Sy © egueBaoo 1 OORS 
©@ IF STATION = OIRCTRY ul + 1] THEN : oo p@me8so0 T 0044 
: 60°T0 OLD + PAs 90428600 T 0043 
te C t= 1 3 00428700 T 0043 
© ENQ ELSE 06428800 T 0044 
| IF U-= 0 AND NOT OLDUSER THEN ae 00428900 T 0044 
i Cte] 3 : 00429000 T 0046 
@ IF C NEG 200 THEN 00429100 T 0048 
| I ts 00429300 T 0048 
ELSE IFS I LES 88 THEN 00432500 T 0049 
©@ DIRCTRY LI + 2] t5 42 00433500 T 0054 
eS eB 


eesveee0en2eeeeneeeee#eeeee@ 


@eeeceeec8see eee ® e@@e08e88e ee @ 


ELSE 00434500 Tt 0052 
WHILE DIRCTRY CI = I-™ 2) LSS oO DO } 00435000 T 0053 
OLD! 00436500 T 0057 
: C $= SLOTI = 1 ¢ 2 ones 06437000 T 0057 
BIRCTRY CI) 32 = USERGODE 3 Se 00437500 T 0060 
DIRCTRY C1 + 1] &3 STATION 3. | oe 98436000 T O06 
WRITE CRI C45)2 90% DIRCTRY C#)) 3 - . 00438500 T 0063 
IF N@T OLODUSER THEN 08438600 T 0068 
GO TO NEW 3 00438700 T 0068 
INTOVR t= FAULT 3 09439500 7 0069 
FLAG $* FAULT 3 : eee. 00440500 T 0070 
RESTORESTATE 3 US COMALIOO  T  OOR2 
STATION $= STATIONI 3 00441500 T 0073 
IF VN LSS 94 OR VN GTR VERSION THEN 00441800 T 0075 
GQ TO FAULT 3 08441900 + 0077 
If FILECLOSED THEN © 00443000 T 0078 
GO TO MAILCALL 3 a pe 90444500. 7. 0078 
If 0 GTR MAXFILELENGTH THEN : ae ee 00445100 T o079 
“GQ TO FAULT. 3 yes - 00445200 7 0080 
READ SEEK (R2 (32 * ¢)) 3 06445300 T 0080 
SECURITYCHECK 3 00447000 T 0086 
IF INPUT (5) + 2 LSS 0 OR INPUT £3] NE@ 10 THEN . 00450000 T 0088 
ERROR (MAILCALL* 3% PREFIX» SUFFIX) 3 fee a oo 90452500 T 0090 
AT $# OaLEFTSIDE 3 neha ee ca 00453000 T 0094 
FoR I ** Q STEP 1 UNTIL AT DO Co eo OMS E100 T 0095 
READ (R2s 2565 LINKLISTS CUSER32 + I» *)) CFAULT] 3 09453200 T 0096 
AT $= 0 3 . 00453500 T 0104 
FOR I t= 4 STEP 4 UNTIL O DO . 09454000 T 0105 
- BEGIN Oe OOABALNE T0206 
IF AT NEQ@ LL CAT t= LL CAT] » T] 4 F THEN a 90454400 T 0106 
I 38 0 . cee OOM SG500 7 Ota 
ELSE IF AT = 1 THEN . 00454600 T O414 
ERROR CNEXTe 6¢ PREFIX*s SUFFIX) 3 06455000 T 0116 
END 3 54s seat 00455100 T 0119 
ERROR CMAILCALL» 7» "LINKLIS", "T ERROR") 3 a ee 9 g86800 T  Ol24 
NEWS : oe 00456500 T 0125 
WRITE (R2 (32 x C + 31)e 1» IMAGE CHI) § | Tes O88s7000 TF -O185 
LOCK ¢(R2) 3 00459500 T 0131 
USER32 t= USER x 32 3 08460000 T 0432 
BOOL s= INITIALBOGL 3 | | 09461000 T 0134 
INC te 400 3 ee O0R62500 T0134 
MACROLIBRARY is "MACRO "5 Pe on OD B6Q900 7 0138 
CHARACTER #5 "#8" 3 DI Bs 00463000 7 0136 | 
SAVEFACTOR $3 7 3 00463500 T 0137 
COLSTOPS s= STRING] t# 0 3} 06465000 T 0138 
PUbb RSwO C*¥] WITH "EXECUTE™» "OT7TO "> mcOPY "a "INLINE IF oe 090466000 7 0140 
= ed oe START OF SEGMENT «x4eewuten © 22 
zip ", "CHANGE ", MEOIT ", "SAVE " WRESEQ — 00466500 T O142. 
“PUNCH ', "PRINT "s "DELETE ", "CLOSE "ps COMPILE", ee 08467000 T O142 
MCOLUMN fe SCAN te “LISTING s INC ts STAB %% 00467500 T 0142 
"PERCENT"s "QUICK %, "LIST ", "OPEN "MATL %, 00468000 T Ol14e 
. TEACH. "s "REMOVE "s "REPLACE™s “END 8 8 " 3. ee. 09468500 T 0142 — 
oes o ee 2B 18 BB LONGs NEXT SEG. 24 
“MATLCALLE 3 Oe 90869000 T° O12 
FILEACCESS %* 0 3 Oe en 00469400 T 0143 
INORDER t= TRUE 3 00469200 T 0143 


NEXTS 00469300 T O145 


rr er er er ee ee ey Sr a Sy i ee ea i a aa | 


® @ e088 @ 4 


a 


eS 


TRANSLATET &# REAL CTRANSLATING) 3 
VN 3# VERSION 3 


ERRORX CO» CIF XFILE C'MAIL & %» USERCODEs 1) = 7 THEN "MAIL 2% *% 
ELSE "HELLO “) & REAL CNOT QLDOUSERIC42:47%1)2 YSERCODE) 3 


END INITIALIZE 3 


LASTUSER #2 MAXUSERS j 
If QINPUT THEN 
BEGIN 
QINPUT 3% FALSE 3 
hae TO INPUTFULL 3 
End. 
IF STAT iON NEG 0 THEN 
BEGIN 
LASTUSER $= USER 3 
_NEXTS ee 
7 IF MORE THEN 
60 TO EXIT 3 
END 3 
IF NQT @ ANDO READY QTOP GTR O THEN 
BEGIN 
LASTUSER $= REAL CWAITX (€O* BOOLEAN €3))) 3 
SEGURITYCHECK 3 ie 
GO TO EXIT 3 
ee ENDO 
AGAIN 
CHARGE (OQ) 3 
Ir 2 * B1GB {RO LSS C t= STATUS (ZIPPY [(¥*]) @ 2 THEN. 


BEGI 
eR ASTUSER 4 t= BIGBIRO + 1 3 
FOR X $3 0 STEP 2 UNTIL C 0G 
BEGIN 
STATION #% QO & ZIPPY [XJ] [98939] 3 
FOR USER #3 0 STEP 1 UNTIL BIGBIRD 00 
TF STATION * STATION] THEN 
USER # MAXUSERS 3 
— ‘USER LE@ MAXUSERS TREN 


BEGIN 
TF BIGBIRD LSS MAXUSER THEN 
BEGIN 

USERCODE t= ZIPPY LX #1) 3 
INITIALIZE 3 
GO TO NEXT 3 


END 4 
NOMQREROQOM 3 
ENO 
END 3 
“END DS 
IF. x t= READTWX NEQ 0 THEN 
BEGIN 


IF X = 2 THEN 
GQ TQ AGAIN 3 
GO TO ESCAPE 3 
END 3 
INPUTFULL S$ 
X tm INPUT [OJ] 3 
USER 8= Q 3 


00472400 
00472200 
00489500 
00490000 
00490500 


166 LONG 
00490600 — 


00491000 
00491400 


— 00491200 
09491300 
00491400 


00493200 
06493300 
06493400 
00493410 


00493500 - 
00494000 


00494400 
00494600 
00494700 
06494800 
00494900 


- 00495000 


00495100 
00495200 
00495300 


00495500 
00495600. 
00495650 
00495700 


00495800 


00495900 | 


06496000 


00496100 
00496200 


00496300 
00496400 
06496500 


00496600 
00496700 
00496800 

00496900 


00497000 
00497100 
00497300 


00497400 
00497500 
00497600 


00497700 


00497800 


09497900 
00498100 
09498300 
00906000 
00506100 
00506500 


oe 


Sg ieqeh ae pe gle ee el eg ye 


0146 
0148 
0149 
0153 
0455 


NEXT SEG 


0044 | 
0044 
0042 
0043 
0044 
0045 


— 0045 


0046 


0046 


0047, 
0048 
0048 
0049 
0049 
0054 
0051 


0053 


0054 
0055 
0055 
0056 
0057 


0064 


0062 
0063 
0065 
0065 


_ 0067 


0068 
0069 
0073 
0074 
0074 
0075 


0075 
0077. 


0077 


0078. 


0078 
0079 © 
0079 
0064 
0081 
0083 
0083 
0084 
0084 
0088 
0085 
0086 
0087 


@®evsve50svxeeeeeese3aneneenee#ee#eeea 
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WHILE STATION] NEG O & X£9%939] DO 
IF YSER $= YSER + 1 GTR BIGBIRD THEN 
GO TO AGAIN 3 
CHARGE (X) 3 
If C ?* CHRS NEQ QO THEN 
READ CIO CUSERJ» 30, IMAGE C%]) 3 
BREAK] t= 0 3 
IF LINEEDIT CINPUT C1je IMAGE* Ce Ces 


TRANSLATE» C GTR 240% 241) THEN 
ERROR CAGAIN® 7 "DELS#e "» CHRS t= 0) 3 


TF BOOLEAN (Xe€2584]) THEN 
BEGIN 
IF FIRSTCHAR CINPUT (5)) = "e”™ THEN 
Cc 32 oc m 4 3 
CHRS t= C 3 
WRITE CIO CUSER]» 30» IMAGE [*]) 3 
GO TO AGAIN 3. ~ 


END 3 


IF BOOLEAN CINREADY@) THEN 


ERRQR CAGAINs 7 "PLEASE "sp "WAITeee™) 3 


WRITELFCR 3 
mies 3= C3 
CLOCK %= TQ 3 
T1 $$ TIMEX 3 
Ir OUTRUTREADY TREN 


NEXTCLOCK t= CLOCK = TO xX (TN = T41 = 90) 4 150 3 


IF LASTUSER NEQ LASTUSER %* USER THEN 
RESTORESTATE 3 
SECURITYCHECK 3 


WAITFLAG t® FALSE 3 


EXTTIO 


ESCAPE? 


EN 


% a ee 2 * * * x ko * oho ~ * ¥ 
‘DEFIN : 
IF RDISCxX CROISCi» RDISC2) THEN GO 10 NEXT# H 


BOOLE 
VALUE 
INTEG 
ARRAY. 

BE 
LABEL 


IF FINALANALYSIS THEN 
GO TO NEXT #4 

LF OUTPUTREADY THEN 
IF TN-* 60 LEQ TIMEX THEN 
QUTPUT 3 


QO READIN 3 


E RDISC (ROISCLe ROIScC2) = 


wN PROCEDURE RDISCX CWHERE* IMAGE) 3 
WHERE 3 

ER WHERE 3 
IMAGE [0] 3 

GIN oo. 

EOF 3 


STREAM PROCEDURE ZOT (D) 3 


BEGIN 
Pld: 
DS. 


END ZO 


2 


fF 
RESET 3 
3 


IF PREWHERE + 1 NEQ PREWHERE ts ABS CNHERE) eo 2 THEN 


READ SEEK (DISC CPREWHERE)) 3; 


READ COISCs 104 IMAGE C¥]) CEQF) 


00507000 


09507500 
00507600 
00508000 
00508500 
09509000 
00511000 
00512000 


_ 003512100 


09512300 


-00512500 


00512600 
00513000 
06313500 
00513700 
00514000 


00520000 


00520500 
09520600 
09520700 
00520800 


00520810 
00520850. 
06520900 


00520950 
00520960 
00522000 
00522500 


00522600. 
00522700 
00532000 


00532500 
09533500 


00533600 
00533700 
00533800 


090534500 
00546500 


160 LONG 
90547000 
00547100 


00547200 


00547500 
00548000. 
00548500 


00549000 


00549500. 
00549600. 
START. OF SEGMENT - 


08549710 
00549720 


_ 00549730 
00549740 


00549750 


00550000 


08550500 
06551000 


SAA tt tt tt tt 


0087 
0094 
0093 
0094 
0095 
0097 
0103. 
0105 
0408 
0110 
0116 
0116 
0117 
0119 
0121 
0123 


0128 


0126 
0128 
0129 
0134 
0134 
0136 
0137 
0139 
0139 
0144 
0145 
0146 
0148 
0150 
0150 
0450 
0151 
O18) 
0154 
0455. 
0155 
NEXT SEG 
0051 
0084 
(OQ54 
0081 
0054 
0051 
0051 | 
00514. 
0081 
RENN K KEES 
0000 
0000 
0000 
0000. 
0000 
0000 
0003 
0009 


2 
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If CQBOLFILE THEN me 90551010 

ZOT CIMAGE) 3 00551020 

IF WHERE LSS Q THEN 00551030 
SEQUENCE 3 : 00551040 

IF FALSE THEN : 00551100 
BEGIN os 00551150 

EOFs 09551200 
ERRORX (52 "AT SEQ#", QCTDEX (N)) 3 06551250 

RDISCX &= TRUE 3& 06551350 
PREWHERE %§ "2 3 00551400 

END. 3 7 09551450 
END RDISC 3 oe Se Gee 00551500 
a @3 TS 4& LONG, 
a 2 2 00552000 
DEFINE WRITEAT = 00552500 
IF WRITEATX CQUICKs #Ne RECORD) THEN : sete 08552800 
GO TO NEXT# 3 LO - 00552900 
BOOLEAN PROGEDURE WRITEATX CQUICKs NN* RECORD) 3 Fo poe 00553000. 
VALUE QUICK» NN F- Os : 00553100 
BOOLEAN QUICK 3 00553200 
INTEGER NN 3 00553300 
ARRAY RECQRD (Q] 3 . se vinta aniotnes ae ceeeneneee « MOSSIGNO, 
BEGIN. ae Se 08554000 
LABEL NEXT 3. ee 00554100 
we START. OF SEGMENT 

N ts ABS (NN) #@ 00555500 

IF NOT COBOLFILE THEN 00556000 
WRITESEQ 32 este ch eee eee eae _ 090556500 

If NN LSS O THEN oy Joe oe 09886600 
ROISC CAT» RECORD) 3; ee 06557000 

IF COBOLFILE THEN eed bee SEE os 06557500 
REGORD C€O)el1335] ss QCTOEC (N) 3 00558000 
WRITEROW (RECURDs QUICK» FILEINFO) 3 00558500 

IF BOOLEAN (BREAKI) THEN wkend tee 00559600 
NEXT? ae : pe ee 0559700 
WRITEATX #= TRUE 3 es BUS 90559800 

END WRITEAT 3 Be mes : ~ 90860000 
24 1S 18 LONG 

DEFINE WRITEME CWRITEME ys WRITEME2) «= 00560400 
IF WRITEATX CQUICKs WRITEMEIL? WRITEME?) THEN . Rtas rast adieas 09560200 
GO TQ NEXT# 3 : oe ee 00560300 

Roe kkk RR Re ee ee ee RR ee oo 09560500 
BOOLEAN PROCEDYRE TOGGLE COLDVALUE, I) 3 ye ee oe ee on OOBELOR0 
ne OLOVALUEs 00561500 
I 00562000 
BOOLEAN OLDVALUE 3 ’ eee 00562500 
REAL Yo Foes ee - 00563000 
BEGIN eo ‘. Sy Re bok 00563500. 
LABEL NEXt # - Ce ee ee - 00564000 
START oF SEGMENT 

IF y = 3 THEN 00564100 
BEGIN 005641140 

Ip REAL COLOVALUE) = "ALGOL ™ THEN 00564120 
TOGGLE %= BOOLEAN CALGOL) 00564130 

ELSE IF REAL COLOVALUE) = "XALGOL " THEN 090564440 
TOGGLE %* BOOLEAN CXALGOL) 00564150 


love: IF REAL COLOVALUE) = “DATA “ THEN 00564160 


AAA A et a oe ee aS eH a He 


mm es ay st ss + 


0014 
0015 
0016 
0017 
0032 
0032 
0033 
0034 
0036 
0037 
0038 
0038. 
NEXT SEG 
0054 
0051 
00514 
0054 
0054 
0051 
0054 
0054 
005i 
0054 
0051 
KENNER ERE 
0000 
0004 
0004 . 
0002 
0003 
0006 
0006 
0010 
0012 
0013 
0014 
0014 
NEXT SEG 
0054 
QQS4 
00514 
0051 
0051 
00514 
0084 


0054 


0054 
0054 
00514 


aEKRHKEN ES 


0000 
0000 
0004 
0002 
0002 
0005 
0006 


2 


aa 


2 
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END TOGGLE. 7, 


TOGGLE :# BOOLEAN (DATA) 
ELSE IF REAL COLOVALUE) = "FORTRAN" THEN 
TOGGLE += BOOLEAN CFORTRAN) 
ELSE IF REAL (OLOVALUE) = "COBOL "™ THEN 
TOGGLE := BOOLEAN (COBOL) 
ELSE IF REAL (OLOVALUE) = "BASIC ™ THEN 
TOGGLE := BOOLEAN CBASIC) 3 
GO TO NEXT 3 
ENB 3 
IF CIF 1 = 1 THEN EMPTY ELSE EMPTY2) THEN 
ERROR CNEXTs 7s PARAMETERQs ONOFF CTOGGLE $= OLOVALUE)) , 
J ts If I # 1 THEN PARAMETER] ELSE PARAMETER2 ; 
IF NOT CTOGGLE #3 I -® “OQN ") TREN 
If I NEQ "OFF " THEN 
ERRQORX (Oe "MISSING%s» " ON/OFF") 3 
NEXT & 


he Le oe pS: 

DEFINE FILETYPE CFILETYPEL) = REAL (TOGGLE CBOQLEAN CFILETYPE1)s 3)24 3 ae 
% 2 
BOOLEAN PROCEDURE VERIFAX (XEROXs 0D) } 
VALUE xERQXe DD 3. 
INTEGER XEROX» 

OC 3 

BEGIN 
DEFINE 


09564170 
00564180 
09564190 
00564200 


00564210 


090564220 


090564230 


00564240 
00564250 
09564500 
00565000 
00565100 


00565500 


00566000 
00566500 


00567000 


~~ 09567500 
S50 LONG 


00567600 
00568000 
00680000 
00680500 
00681000 


00681100 
00681500 


00681600 


START OF SEGMENT 


PRINTING = XEROX = 2He 
PUNCHING = XEROX = 4#, 
‘BIPPING = XEROX = B# 3 
FIQE COPY DISK SERIAL C20!0D) (2s 10% 150 SAVE SAVEF ACTOR)” 
BOOLEAN B 3 
REAL Lo 3 


LABEL NEXT 3 


XLOCKED t= TRUE 3 
_ IF. BOOLEAN (XEROX) THEN 
BEGIN ~ 
FILL COPY WITH PREFIX, SUFFIX» #» ¥>» ty 123 
L t= FIRST ¢# 
WHILE AT $* Lol NES 1 00 
BEGIN 
Note cL fF Lb tATI), $ 3 
ROISC C#AT» ZIPPY) 3 
WRITE CCOPYs 10° ZIPPY ¢€*]) 3 
INTERRUPT (4) 3 
END 3} 
READ CDIScC £03) 3 
‘DETACH 3 
“CLOSE (DISC* PURGE) 3 
LOCK (COPY) 3 
REATTACH. 3 
INGRDER #= TRUE 3 
~ FILEACCESS $= 0 3 
SAVESTATE. 3 
END XEROX 
ELSE 
BEGIN 


00681700 
00681800 


00681900 
~~ 00682000 


00683500 
00684000 
00684500 
00687000 


00687500 
00688000 


00689000 
00691000 
00692000 


00692500 
90693000 
~~ 00693500 


00695500 
00696000 


00696500 
09697500. 
00698000 
00696500. 


00699500 
00700000 


00702500 
00705500 
00706000 
90706500 


08707000 
00708000 


aA st tt st a et HH a HS tata tans se st a ss se 


0009 
0010 
0013 
0014 
0017 
0018 
0024 
0023 
0025 
0025 
0026 
0035 — 
0037 
0039 
0040 
0042 
0043 
NEXT SEG 
0054 
0051 
0051 
0051 
0051 
0051 
0054. 
0051 
ere Se 
0000 
0000 
0000 
0000 
0006 
0006 
0006 
0006 
0008 
0008 
0008 
0012 © 
0014. 
0016 
0016. 
0024 
0023 
0027 
0033 
0035. 
0040 
0044 
0043 
0044 
(0045, 
~~ 0Q4? 
0048 
0049 
0049 
0049 


e 


26 
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FILL COPY WITH PARAMETER» PARAMETER2* *» *» Bees 00709000 


T 0049 
IF PRINTING THEN 15 ELSE IF PUNCHING THEN 22 ELSE 12 3 00709500 T 0052 
IF PRINTING THEN 00713000 T 0057 
BEGIN eee 00713500 T 0057 
WRITE CZIPPY C*]» DATE® PREFIXe(6%6)s PREFIXe ~ oe 06714000 T 0058 
~~ SUFFIXe(6%6]» SUFFIXe CL 8® TIME (1)) DIV 216000» : 00714500 + 0067 
L DIV 3600 MOD 60» TIME (6)» MMODYYs» ae 00715000 T 0076 
—USERCODEs [636], USERCODE) 3 00715500 T 0086 
DETACH 3 00716000 Tt 0092 
WRITE CCQOPY. COBLI» 47» ZIPPY C¥)) 3 . 00746500 T 0093 
 REATTACH 3 3 coe eee a OORE9000 Tt BOR? 
END OR. . oe eee 90720060 T 0098 
L teN Fo ee ee 99720500 T 0098 
DD ts M t= 0 3 00721000 T 0099 
B t= PRINTING AND PARAMETER2 = "DOUBLE " 3 00721100 T O100 
WHILE N t= OL COD t# LL ([003,T],5 LEG PARAMETERS, Pes open ae 00721500 T 0102 
IF PARAMETERS LEQ N THEN [eee Qor28080 7 O82 
BEGIN ee 00728000 T... C888 
ROISC COD & CREAL CNOT ZIPPING))(C1%47%1)>2 ZIPPY) Ps ve 00723500 T Q113 
IF PRINTING THEN ooF24000 T O117 
ZIPPY C14] t= QOCTOEX (M t= M # 1) & "#"C184395) 3 00724500 T 0118 
IF B THEN . Peers rir er eee 00726000 T 0122 
WRITE CCOPY CDOBL]» 17% ZIPPY L*)) © ee oe 00786500 T. O12e3 
ELSE WRITE CCOPYs 47% ZIPPY C«}) 3 ee ee OOF 27000 1. 0126 
INTERRUPT (1) 3 ee 09727500 T 0134 
END 00728000 T 0440 
ELSE M t= M #13 00728500 T 0140 
IF, ZIPPING THEN . ee, 00729000 T 0142 
ZIP WITH COPY 3 CO OT RS8SO0 7 0443 
LOCK (COPY) 3. ee es ee OOF 30000 1 -Otka 
Noe Loe Ce ee OOF IOSOO FT OFRS 
END THERMOFAX 3 06731000 T 0147 
IF FALSE THEN 00731100 tT 0147 
NEXTS 00789200 T 0147 
VERIFAX t= TRUE 3 Oe OO OORT 800 -T O48 
XLOCKED ts FALSE 3 Se ee OORSSGOG 7 0148 
END VERIFAX 3 OSE i 00731500 T 0150 
26 1S 155 LONGs NEXT SEG 2 
DEFINE THERMOFAX (THERMOFAX1s THERMOFAX2) # 00731600 T 0054 
“BEGIN sGinint ae ines: 00731650 T 0051 
WAIT CKOUNT CPARAMETER3* PARAMETERS? CLOCK)» XLOCKED) 3 Oe OOTEIFGO 1 OOS4 
Tr VERIFAX CTHERMOFAXLs THERMOFAX2) THEN  Oe731750 T 0051 
60 TO NEXT 3 NO OF84 E00 7 0054 
ENB, 00731850 7 0054 
CREATEFIK&E CCREATEFILEL) = 06731900 T 0054 
BEGIN. en ee ne ie . 00731950 T COSy. 
- LY BRARYsAREAS t= 20 3 6732000 T 0084 
- LIBRARY sAREASIZE $= CREATEFILE! ; Doe ee 0OTI2080 T0051 
LIBRARY sSAVE ¢* SAVEFACTOR 3 ee ee QO 7a O20 T OO8L 
WRITE (LIBRARY® 10% RECORD EC¥)) 3 . 06732030 T 0054 
LOCK (LIBRARY) 3 00732040 7 0054 
LIBRARY sAREASIZE §* 0 3 Sor, ok 00732050 T 0054 
LIBRARYeAREAS t= 0 3 00732060 7 0054 
END#» 09732100 tT 0053 
CLOSEMYFILE = te at 00732150 T 0054 
BEGIN 00732200 T 0054 
T 00514 


IF NOT INQRDER THEN 00732250 


eeeeevee ee e808 &© 82 &© &@© © © & © @ @ @ 


 EOTR 


BEGIN 
WATT CKOUNT Cle FINITYs CLOCK )« XLOCKED) 3 
IF VERIFAX (172 (D + 14) DIV 15 x 15) THEN 

GQ TO NEXT 3 

END ELSE. 

BEGIN. 
FILEACCESS t= 0 3 

chose (DISC) 3 


Sg bk ob ON CREE WOR Be * a ee) a 


DEFINE WOISC # IF wWOISCX CIMAGE) THEN GO TO NEXT# 3 
BOOLEAN PROCEDURE WDISCX (CIMaGE) 3 
ARRAY IMAGE [OQ] 3 


BEGIN 
REAL L 3 
LABEL E0T» 
NEXT 3 
WHILE N GTR Ch $= LL CATI)«S DO 
AT 3% LeT 3 
WHILE N LSS CL ¢# LL [ATI)2,5 00 
AT 25 Lok 3 
IF N NEQ LoS THEN 
BEGIN 


IF 0D GE@ MAXFILELENGTH THEN 

ERROR CNEXT» OF "FILE TOM, *® bongs ") 3 
IF PRE WHERE NEQ PREWHERE 83 D = 2 THEN 
READ SEEK (DISC CPREWRERE + 41) 3 


bots LUD t= D+ 1) t= CheT) & N CSF) & AT CFF] poe 


MODIFY ¢(D) 3 
LL CAT] » T $= D 3 
MODIFY CAT) 3 
AT $3 bel 3 
IF AT NEQ 1 THEN 
— INORDER ts FALSE 3 
LL CAT] « F te 0 3 
MODIFY CAT) 3 
AT += 0D 3 
END 3 
SEQUENCE. 
If PREWHERE + 4 NEQ@ PREWHERE t= aT ®@ 2 THEN 
WRITE CDISC CPREWHERE J)» 102 IMAGE [*]) 
ELSE WRITE COISCs 109 IMAGE €*)) CEOT) 3 
N ts N + INC 3 
IF FALSE THEN 
BEGIN. 


LL ther? 2 TRB AT fe LT 3 
LL CAT) « F 8  beF 3 
Dptsow 1.3 
_INORDER t= FALSE 3 sg 
SHOW C™FICE Me FULL M28 
i. ie ERRORX (Os "PLEASE "s "REGPEN»") 3 
-NEXTS 


WDOESCX $= TRUE 3 
END 3 


06732300 
09732350 
00732400 
090732450 


90732500 


00732550 


00732600 


00732650 
00732700 


00732750 
00733000 
00733500 
00734000 


09734500 
00735000 


00735100. 
START. OF | ‘SEGMENT. 


00735500 


06735600 - 


00743500 
06744000 
00744500 


99745000 


00745500 
06746000 
09746500 
00747000 
00747100 


00747200. 
- 0Q747500° 
00748000 


00748500 
00748600 


00749000 
00749500 


00750000 


00750500 


06750600 
00751000 


00751500 

90752000. 
00752500 

00753000. 


00753500 
00753510 


09733600 
00753610 


09753620 


00753630 
00753640. 


00753650 


, 99753660 
00753670 © 


09753690 


00753700 


00753800 
060753900 


ae a ss ee ee a 2 eat SR 


005% 
0054 
00514 
0051 


0054 


0051 
0084 
(0054 
O0s4 
0051 
00$4 
0054 
0081 
0051 
0084 
0081 | 
ebehdlahate 
— 0000 
0000 
0000 
0005 
0007 
0012 
0014 
0045 
0018 
0016 
0022 
0023 
0030 
0038 
0044 
0046 
0049 
0050 
00514 
(0053 
0058 
0061 
0062 
0062 
0076 


er 


@eeeeeeee#eeeeee#e#eeeeee8a es 


eo eo | 


® 
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« 
END WDISC 3 oa 99754000 T O12 
27 18 122 LONG» NEXT SEG 2 
ye 06754500 T 0054 & 
INTEGER PROCEDURE GETPARAMETERS (N) 3 VALUE N @ INTEGER NS. 00754600 T 0054 
BEGIN GAs 00754650 T 00514 
INTEGER STREAM PROCEOURE STAR (Ss OD» E) 3 VALUE E 3 ee 00754700 T 0054 @ 
: START. OF SEGMENT wxkeewe tee 28 
BEGIN 00754750 T 0000 
LOCAL N» 00754800 T. 0000 @ 
PLUS, . ee ; 00754850 T 0000 . 
MINUS? ~ oe 00788900 T0000 
CRCOSSHATCH» en ee OOTSEGSO-T. 0000 - | 
K 3 . Ws i 90755000 T 0000 
LABEL DEBLANKs 00755050 T 0000 
NALPHA» 09755100 Tt O00d0 € 
BLANKs . fe er ee 00755150 T 0000 
NUMALPHAs ec 99755200 T0000 co 
_ GETREPEAT 3 Oe 907582507 0000 - | 
SSCS pga Soy WE OO RSS IO -T. 0000 
Sr t# Sle 43 090755350 T 0000 | 
BI ts D3 00755400 T 0000 € 
8 COS t= a LIT “##000000") | ; ; Ce eT 009755450 T 0000 
Opo32 03 e627 55500 To 0009 
— CIE SC = "€" THEN JUMP GUT 3 ee 90755550 7 0002  € 
If SC 3 "@" THEN JUMP OUT TO GETREPEAT 3 Pes 00755600 T 0004 
IF SC = "3" THEN JUMP GUT TO GETREPEAT 3 00755650 T 0005 . 
SI t= SIT +1) 3 | 00755700 T 9006. @ 
5 (TALLY #3 0 3 eee 90755750 T 0008 
bs TALLY R ee 0759800 T 0008 
PLUS t® TALLY 3 Ce ee ee OTS5eS0 T0008 @ 
MINUS #= TALLY 3 es, 90755900 T 0009 
‘CROSSHATCH $2 TALLY 3 06755950 T 0009 
TALL¥ $= 1 3 00756000 T 0009 @ 
DEBLANK3 . eee 00756050 T 0009 
Sy te SIo# 4 3 : oe oe 00756100 T Q009 
IF $¢ =" " THEN ee oe  GOPS6450.T Oto @ 
GO TO DEBLANK 3 EEE 00756200 T 0040 
IF SC = ALPHA THEN 00756250 T OO%4 
TALLY t= 0 00756300 T 0011 @ 
ELSE | Ae 7 (00756350 T OOLL 
BEGIN oh EIN EN 00756400 T O0%2 
IF SC = "3" THEN : “Oe Obrseaso T. oOLe @ 
JUMP QUT TO GETREPEAT 00756500 T 0042 
IF SC = "* THEN 09756550 T 0043 | 
JUMP QUT TO GETREPEAT 09756600 T 0043 e 
IF SC = "(" THEN 00756650 T «0014 -* 
JUMP QUT TO GETREPEAT 00756700 T O044 - 
IF SC = "EE" THEN’ 00756750 T 0015 @ 
JUMP QUT TO GETREPEAT 00756800 T O015 
IF SC = "," THEN 00756850 T 0016 
JUMP QUT TO GETREPEAT 06756900 T 0016 @ 
IF SC = "@" THEN 00756950 T 0017 
JUMP QUT TO GETREPEAT 00757000 7 0017 
IF SC = "/" THEN 00757050 T 0018 rd] 
K t= TALLY 00757400 T 0018 
ELSE IF SC = "+" THEN 00757150 T 0018 
PLUS = TALLY 00757200 T 0019 @ 
@ 
4 


e @ @ 
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ELSE IF SC ® "#" THEN 
CROSSHATCH $= TALLY 
ELSE IF SC = "*" THEN 


MINUS 


t= TALLY 3 


GO TO DEBLANK 3 


“ENO 3 


‘Ip SC GEQ "0" THEN 


BEGIN 


K (JUMP OUT TO NALPHA) 3 


K ts S$] 3 


8 CIF Sc LSS "0" THEN 
JUMP QUT # 

TALLY 3% TALLY # 1 3 

SI] s* ST + 1) 3. 

N t= TALLY 3 


IF. TOGGLE 


BEGIN | 
IF SC = ALPHA THEN 


BLANK $ 


IF SC # 
BEGIN 


NUMALPHAS 


END 


SI] #3 K 
08 2. N 


ENO 

ELSE 

BEGIN 
NALPHAS 


GO 10 


$I 


GO TQ 
END 3 
IF SC & 
BEGIN 


SI 33 
6g 70 
END 3 


4 


THEN 


NUMALPRHA 3 


" " THEN 


23. ST + 1 3 


BLANK 3 


"7" THEN 


K 3 
NALPHA 3 


3 
OcT 3 


OS = 1 LIT "+" 3 
7 CIF Sc = ALPHA THEN 
PS &e 1 CHR 


END 3 


By $* DOI ® 


ELSE pS t= 4 LIT" ") 3 


8 4 
SKIP 2 0B 3 


DS t# PLUS SET 3 
By t= DI = 143 


SKIP 3 0B 3” 
BS t# MINUS SET 3 
Ol #* Ol w= 1s 
SKIP 4 DB 3 
OS %* CROSSHATCH SET 5 
PL te Ol + 7 3 
coos BP 9@ SP me dd 
GETREPEATS 
E CIF SC = ")" THEN JUMP OUT 3 
IF SC = "3" THEN JUMP OUT 3 


00757250 
00757300 
00757350 
00757400 
00757450 
00757500 
00757550 


00757600 


00757650 


00757700 


06757750 


00757800. 


00757850 
00757900 
00757950 
06758000 


007580350 


00758100 


00758150 


00758200 
00758250 
00758300 
00758350 
00758400 
00758450 
06758500 
090758550 


09758600 

00758650 

09758700 
09758750. 


00758800 
00758850 
00758900 


00758950 
00759000 
00759050 


00759400 
09759150 


99759200 


00759250 


00759300 
00759350 
09759400 


00759450 


96759500 
08759550. 
00759600 
00759650 


06759700 


00759750. 


00#59800 


00759850 


06759900 
00759910 


00759950 


00760000 
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INTEGER XDEXX } 


IF SC = "@" THEN YUMP CUT 3 
Si %= SI + 1) 3 
E CDI &* LOC STAR 3 
DS t= @ LIT "00000004" 3 
DI ts Ol * 8 3 
190 CIF SC = 93" THEN JUMP OUT 3 
IF SC GEQ "0" THEN 
BEGIN 
TALLY te 4 3 
3 (Sl t2 SI 41 3 
IF SC LSS "O" THEN JUMP OUT 3 
— TALLY $= TALLY # 41) 3 
K © TALLY 3 
$I #s SI" K 3 
O05 t= K OCT ; 
JUMP QUT 3 
END 3 
— SP te S144) 3 
JUMP OUT) 4 
END STAR 3 
DEFINE xXSUB = C(XDEX + 1) x 138 3 
IF_N = QO THEN 
GETPARAMETERS t= STAR CIMAGES PARAMETEROs 0) 
ELSE : 
GET PARAMETERS $= STAR CIMAGE* XPARAMETERS CO)» 63) } 
END GETPARAMETERS 3 


ee a 2 te om f* 


INTEGER PROCEDURE VERB 3 


BEGIN. — 
BOOLEAN PROCEDURE NUMBER (Ns C) 3 


INTEGER N 3 
REAL Cd 
BEGIN 


LABEL ZERO # 
IF xXpEX GEQ@ QO THEN 
BEGIN 
XDEXX t= XDEX + 13 
WHILE BOOLEAN (C,. C4%4]) AND XDEXX $# XOEXx = i GEQ 0 D0 
CC. #* XARRAY. LUSERs XDEXXx13 + ABS COROLLEGSIAI#1) MOD 5) 
ENQ 3 
Cef434] 22 0 3 


TF NUMBER a (NOT BOOLEAN CColls4))) & CC = ee NEAT MD THEN. ies 


BEGIN | 
IF Coe cate) NEG O AND FILEQPEN THEN 
BEGIN. 
CC. C183) ts GC 4 £393] 3 
Ip C = 0 THEN 
BEGIN 
C te N 3 
GQ TO ZERO 3 
END 3 
Ie NOT CITSOLO ¢N) OR BOOLEAN (CC , £4814]2) THEN 
C ts C = 4 i 


00760050 


00760400 
08760200 
00760250 
00760300 


00760350 


00760400 
00760450 
09760500 
00760550 


06760600 


00760650 


00760700 


00760750 
06760800 


00760850 


09760900 


- 00760950 
06761000 


00761050 
00761190 


00761150 
00761200 
00761250 
00761300 
00761350 © 
74 LONG 


00761400 


00763900 
00764000 


00764100 


START. OF SEGMENT 


00764300 
00764400 
00764500 
00764510 


START OF SEGMENT 


00764520 
06764530 


00764540 
00764550 


00764560 


. 00764570 


00764580 
00764600 


00764640 
90764620 
00764700 

00764800 


00764900 
00765100 
00765200 
00765300 
08765400 
00765500 
00765600 
00765700 


T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
ui 
T 
T 
T 
T 
T 
T 
T 
T 
T 
T 
rd 


T 


‘ 


T 
Ty 


0044 
0045 
0046 
0047 
0048 
0048 
0050 
0050 
0050 
0051 
0051. 
0052 
0054 
0054 
0054 
0055. 
0055 
0055. 
0057 
0058 
0059 
0059 
0089 
0063 


— 0064 


O71 

NEXT SEG 
O0514 
00514 
0054 
0054 


Kee a ee 


T 
T 
T 


0000 
00a0 
0000 
0000 
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0000 
0000 
0000 
0004 
0002 
0006 
0012 
0012 
0014 
0017 
0016 
0020 
0020 
0023 
0024 
0024 
0025 
0028 
0028 
0030 


2 


29 
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FOR N t= 4" C STEP 4 UNTIL O DO 
IF AT t= LL CAT] »« T & 4 THEN 


BEGIN 
N #® Q 3 
Se AT O'R LAST 9 FOG 
END 3 


FOR N t= C + 4 STEP 1 UNTIL 0 0G 
IF aT #% LL CAT) » F & O THEN 
BEGIN 

N 3 0 3 
ND 3 


C vs : CAT] .« S$ 3 
END ELSE C,lei2] t8 0 5 
ZERCS$ 
Cte MIN CFINITYs? MAX Cle N 8% C)) 3 
ENO ELSE 
Cel1t3) is QO 3 
END NUMBER 3 


a ee ce 2 2 2 ee 2 


INTEGER STREAM PROCEQURE INLINEEDIT (S, Ds Ts Cy No ADRs ANTAL? 4, 


VALUE INITIAL» 
Ce 
Ne 
BIOR 3 
BEGIN 
LABEL SEARCHs 
-. INSERT? 
DELETEs 
REPLACE» 
WRAPUP» 
LOOP» 
ERROR 1s 
HERE» 
THKERE> 
IDR» 
XIT 3 
BIOR a1 = Si ; 
SI #3 D 3 is 
OL $2 T 3 DS fs 
ee ee ee ; 
‘OT s# Loc BIDR 3 
OS tm 4 Lit "TOR" 3 
DY se T 3 


S$ $2 S$] 3 
5 § D tae SI; 
Tg 

46 3 € t= $1) 


; 
+ INITIAL # 


GO TQ IDR 3- 
= @0 TO WRAPUP 3 
SEARCH: - 

SI sa LOC C 3 

S] %* SY + 6 4 


"i Tt OF 3 


00765800 


00765900 
00766000 


00766400 


09766200 


00766300 — 


00766400 
00766500 


00766600 
00766700 


00766800 


08766900 
00767000 


00767100 
00767200 
00767300 


09767310 
00767320. 


00767400 


81 LONG 


00767500 
00767600 
00767700 
00767800 


00767900 


06768000 
00768100 
00768200 


00768300. 
09768400 


09768500 
00768600 
00768700 


00768710 


06768720 
00768730 
00768800 
00768900 
00769000 
00769100 
00769200 


00769300 


00769400 
00769500 
00769600 


00769700. 
00769800 


00769900 


00770400 


08770900 
00770600 


00770700. 
00770800 
00770900 


00771000 
00771100 


00771200 


8 Aas BHA a ot Ht 


AANA AHA A st a a Ht 


0032 
0037 
0042 
0042 
0043 
0046 | 
0046 
0051 
0056 
0056 
0057 
0060 
0060 
0065 
0067 
0048 
0074 
0074 
0078 
NEXT SEG 
0000 
0000 
0000 
0006 
0000 
90006 
0000 
0000 
0000 
0000 
0000 
0000 
9000 
0000 
9000 
ooo 


~~ 9000° 


0000 
000g 
9001 
0002 
0004 
0005 
0005 
0006 
0006 
0006 
0007 
0008. 
0009 
0010 
0010. 
0010 
0010. 
OGi1 
0011 
0014 


® e® e®e@ e208 8 # @ & 


& 


@®eeeeeeeeeeeee%ee#eeeee6e 


DT ## LOC N 3 


If 2 $C = DC THEN 
GO TO ERROR: 3 


‘SI 
S] 
¢ 
SI 
OF 


ik 
‘9 


C 3 
SI = 8 i 


t= SIG 


ts 
is 


Q 3 
T 3 


BS t= 1 CHR 3 


O te SI 
t= Ol 
SI] t# $3 
DI ta Lac 
4 CIF SC = OC THEN 

JUMP OUT 3 


T 


Nee wo We 


Sy = Sr* 13 


TALLY $% TALLY # 1) 3 


IF TOGGLE THEN 


Eu 
BE 
ERROR1: 


SE. 
GIN 

—TARLY fe 43 
JUMP OUT 2 TO HERE 3 
D3 | 


EN 


INITIAL #® TALLY 


TALLY $= 0 3 
$ t= $I 3 


TORT 
8] 


3 


GO TO LOOP 3 


St te Loc cs 
SI: + 6 3 


DI t= LOC N 3 


IF 2 SC 

BEGIN. 

i= D3 
3 


WRAPUP S$ 


SI 


BD] 35. 7 
TALLY ts 4 3 


INITIAL #5 TALLY 


DS #* 4 CHR 3 
GO TO LOOP 3 


EN 


INSERTS 
OT 
Qs 


D3 


33 
ze 


) 


WRAPUP #3 
INSERT 3 
DELETE 4 
REPLACE 3 


T 3 
1 CHR 3 


$§ ts SI 3 


T 
DI 


ts 
| 


BIDR } 


# OC THEN 


* 


? 


CI + INITIAL 


OI 3 
INLINEEQIT & 


? 


00771300 


00771400 
00771500 
00771900 
00772000 
00772100 
00772200 
09772300 
00772400 
00772500 
00772600 
00772700 
09772800 
00772900 
00773000 
00773100 
00773200 


00773300 


00773400 
00773500 
00773510 
00773600 
00773700 


00773800. 
00773900 


06774000 


00774100 
00774200 


 90774300° 
00774400 — 


00774500 
00774600 
00774700 


09774800 


00774900 
06775000 
00775400 
09775200 
00775300 
00775400 


00775500 
00775600 


00775700 
00775800 
00775900 
00776000 


090776100 
00776200. 
00776300. 


00776400 
00776300 
06776600 
00776700 
00776800 
00776900 
06777000 
00777400 


HAHAHA eA HH A A oe ts st tt a oe st ss st a es 


@ ®@ @ @ ® ] @ e ] ® e e rd] & @ & a a ® ea ] & 
a - y a nN q 


@eeeeeeeee#eee08# #886808 e08ee8e8e0ee80e@ 


Dr t= DI + 83 
INLINEEDIT #3 DI 3 
Go TO LOOP 3 


DELET 


REPLACE 


HERES. 
THERE 


Es 
BI t* D3 


Oy #3 OF + 1 3 


Bote OL 3 


St ts Sl 413 


3 3:2 SI 3 


ae TO LOOP 3 


eT. taoT i 
DS ta 1. CHR + 


S 3s SI 3 
T t= O1 3 
S1.%3 0 3 


SI] 3% SI #14 


D tm SI 3 


60 TO THERE # 


Go TO xIT 3 


TALLY fe ey 3 


XIT3 


% ew 


LABEL 
VER 


S t= §I 
SI 3s foe 


INLINEEDIT 3 


DI t* LOC BIDR 3 
SI] t= SI + 6 4 
QL ts Dl + 75 
OS ta 1 ; 


ee) 


31 
BIDR ¢2 (32 CIF SC NEQ " " THEN 


BEGIN 

TALLY 33 2 3 

WUMP QUT 3 TO XIT 3 
END. 3 j 
SI of8 S$] + 122) 


»3 
INLINEEDIT CIF Sc NEQ * ™ THEN 
8 


EGIN 

TALLY 83 2 3 

JUMP OUT 1 TO XIT 3 
END 3 


S1 ts SI +1) 3 


INLINEEDIT 8* TALLY § 
END INGINE 3 


eo ek + * * a 


NEXT» 
BEXIT 3 


DEFINE QUICK = FALSE# Ee 


NOTE, 


READIN 


AF. BOOLEAN (ABNORMALEND) OR USER & MAXUSERS Ten 2 


BEGIN 
VERB 


1s RSWDM # REAL (USER = MAXUSERS) 3 


GO TO VERBEXIT 3 


00777200 
00777300 
00777400 
00777500 
00777600 
00777700 
00777800 
00777900 
00778000 


00778100 
00778200 


00778300 
06778400 


00778500 
00778600 
00778700 


00778800 


00778900 
00779000 
00779100 
00779110 
00779120 


007791430 


00779140 


00779200 
00779300 | 


09779460 
00779500 
00779600 


00779700 
00779800 


00779900 
08780000 
00780400 
00780200 
00780300 
00780400 
00780500 
09780600 
09780700 


00780800 
00780900 
00781000 ° 


00781100 
00781200 
09781300 


00781400: 
00781500 


00786000 | 


00786100 
00786110 


00806500 
00807000 


00807500 


00808000 


00809000 


09809500 


a fe pa 2 i eh a a se 


0027. 


0027 
0027 
0028 
0028 
0028 
0028 
0028 
0029 
0029 
0029 
0029 
0030 
0030 
0030 
0031 


0031. 


O0391 
0034 
0034 
0033 
0033 
0033 
0034 
0034 
0035 
0035 
0035 
0036 
0036 
0036 
0036 
0037 
0039 
0039 
0039 
0040 
0040 
0044 
0043 
0043 
0044 


0044 


0044 
0045 
0045 


0045 


0046 
0046 
0046 
0046 
0046 


0047 


Q047 
0049 
0030 
0032 


@®eeeeeeeseee?e®ee @® @® @ @® @ @ 8# &# a & 


aie = aise 
WBE S) Dubie Paes, Tee. Be nen 


END 3 
IF INLINETOG THEN 
BEGIN 
INLINETOG ts FALSE 3 
IF Moa INLINEEDIT CIMAGEs RECORDs ZIPPY* CHRSe 
~ HALFLENGTHs FILEINFO = COBQLs M) & O THEN 
BEGIN 
IF INLINEECHO EQ@V TEMPTOG THEN 
WRITEME (Ne ZIPPY) 3 
IF wOISCX C4IPPY) THEN 3 
NOSTAR ¢# FALSE 3 
GO TO NEXT 3 
END 3 
IF M = 2 TREN 
ERROR (CNEXTs Os PARAMETERQs © QVRFLW") 3 
aigOe (NEXT » Os "NEEDS I"s "eR OR OM) 3 
END 3 
IF NOSTAR THEN 
BEGIN 
IF WOISCX CIMAGE) THEN 3 
GO TO NEXT 3 
END 3 
WRITE CIO CUSERJ]» 30. IMAGE [#]) 3 
I S$ GETPARAMETERS (0) 3 
TEMPTOG 25 PARAMETERO,Cei2)] = 0 3} 
IF NUMBER (Ns PARAMETERQ) THEN 
BEGIN 
IF FILECLOSED THEN 


ERROR CNEXTs Se * OPENS "» OCTDEX CPARAMETERQ)) 3. 
IF NOY MOREINPUT AND ITSOLD (N ts PARAMETERO) THEN” 


WRITEAT 3 
GO TO NEXT 3 


END 3 
M $= RESETN t2@ N 3 
FOR J t3 0 STEP 4 UNTIL RSWOM 00 
If PARAMETERO # RSWO C1] THEN 
BEGIN 
RELATIVENUMBER t= PARAMETER] 3 
NUM #3 NUMBER (M» PARAMETER1) 
NUM2 t# NUMBER (Ms PARAMETER2) 
NUM3 #= NUMBER (My, PARAMETERS) 
ONUM4 83 NUMBER (Ms PARAMETERS) 
VERB t= I 3 
GQ TQ VERBEXIT 3 


Fou ten ‘we tee 


END 3 
If I a8 xFILeE CPARAMETEROs MACROLIBRARY» #1) bss. 2 
AND MaGROLIBRARY NEQ "MacRO THEN 
I ts xPILE CPARAMETEROs "MACRO es 941) 3 
IF 1 LSS 2 OR INPUT (3) NE@ 40 THEN 
BEGIN 
SHOW (PARAMETEROs ™ JNVALI") 3 
ERROR (NEXT» O» "Die ", RWTEACH) 3 
END 3 
VERBEXITS 
END 3 


| ee | 


00810000 


00811000 
00811500 
00811600 


00813000 
00813500 
00834000 


09814100 
09814200 
09814500 
00815000 
09815200 
00815500 
06816000 
09816100 
00816500 


00817500 


00818000 


00818500 


00822500 
00826000 


00826500 
90827000 
- 90828000 
00828100 


00837000 
00837100 


00837500. 
00838000 


00838500 


09838600. 


06839000 
00839500 
09839700 
00840000 
00840500 
00840600 
00840605 
00840610 


QO9840620 
(09840630 


00840640 
00840700 
00841000 
00841010 

00841100 


<2 Segui ane 
00841220 
00841300 


00841320 
00841360 


00841400 | 


09841500 
09844500 
09845000 


Se ee ee LL eee, 


145 LONG» 


00846000 


T 


0052 
0052 
0053 
0053 
0055 
0059 
0065 
0065 
0967 
0070 
O072 
0074 
0074 
QO074 
0075 
0079 
0083 
0083 
0083 
0084 
0086 
0086 
0086 
0094 
0092 
0095 
0096 
0997 
0097 
0102 
0105 
0108 
01408 
0498 
OL10 
Olid 
Olle 
Oil2 
O113 
0116 
0116 
Olay 
0123 
0124 
0125 
0127 
0129 
0130 
0133 
0135 
0135 
0137 
0142 
0142 
0142 
NEXT SEG 
0051 


e 


@ @ e ) ® 6 ® ® & & & & ® & ® 2 a a & & ea a 


@®eeeee8e8 eee ehlUchhmlUCcOlCcOlClCcF hl! 


+ a + ry 
DEFINE QUICKLIST = LISTIT (414s 06850000 
SCAN = LISTIT (2)#0 09850100 
CHANGE s& LISTIT (4)#, 00830200 
EDIT. s LISTIT (8)¢@ 3 96850300 
PROCEDURE Crstit CLISTTYPE) § VALUE LISTTYPE § INTEGER LISTTYPE 990850400 
BEGIN. z oe a 00850500 
LABEL NEXT 3 06850600 
START QF SEGMENT 
DEFINE QuICK = BOOLEAN CLISTTYPE) AND TRUEF,> 06850700 
SCANTOG = LISTTYPE # 28s ne 00850800 
CHANGETOG = LISTTYPE = 4é, alae aS : 00850900 
ECITTOG = LISTTYPE = BH» oe ~ 00851000 
POSTING = LISTTYPE GEQ 16% 3 ee a 00851100 
BOOLEAN PROCEDYRE STRINGFOUND 3 00851110 
BEGIN 09851120 
BOOLEAN STREAM PROCEDURE PRESENT CS» R» is SR» Ts IDe K) 4 | eek 99851200 
START OF SEGMENT .» 
VALUE Is ee ee 08851300 
SRe 00851400 
IDs 00851500 
Ks 00851600 
T 3 setcoa ait bs sean ts ouse te: 00851700 
BEGIN A Es a 00651800 
LABEL XIT-3 = oe ee 08851900 
S] te $3 = ce 00852000 
S] t# SI + K 3 00852100 
S$ t= SI 3 09852200 
SI's LOC SR 3 . sccinipstio 09852300 
PI ts LOC K 3 eer OQ BS 2400 
S] ## Sf + 64 ge 96852500 
Ol '= DI + 7 3 oe 99852600 
DS t= CHR 3 09852700 
DI ts R 3 00852800 
K (DI t= OI + 32 § OL t# OL + 32) 3 a ae 8852900 
DI t= DI + SR 3 nee ee 00853000 
Rts DI 3 ee 00853100 
TALLY $= 1 3 ee : BONG 00833200 > 
SI s# LOC T 3 00853300 
DI ## LOC K 3 09853400 
8] ts SI + 6 3 ae wtunen ghoniwaistaiaticearcamnn ,- PRED Iead 
Ol t3 OL +7 3 eo O68 B 3600 
DS t= 1 CHR 3 . Cee a Osa s700 
Ol t# Rb : Degg eee O85 IB0G 
K (2 (32 ¢ 00853900 
SI ts $3 00854000 
AE. iis = DC THEN | | se sueteee se: 09854100 
1 NuUMP OUT 4 10 XT) 3 | SO OURS 4300 
R ts DT 3 : na OBS ROO - 
SI] #2 R & 00854500 
IF SC = ALPHA THEN ELSE eee eac 
BEGIN | Be sccaf Seed 09854700 
$y ae ST et por ee oe agaaoed 
SI = Sle 43 oe oe 090854900 
IF SC # ALPHA THEN ELSE 08855000 
ra OUT 3 TO XIT 3 00855100 
ENO 00855200 


Bc ane em ee ak ar ag oma a) aca eae i de me hcg alr ada ae 


0051 
0054 
00514 
0051. 
0054 
0054 
0031 
TTI TT TT 
Q0de 
0000 
0000 
0000 
0000 
oo0co0 
0000 
0000 
kee eH Re 
0000— 
Q000 
0006 
0000 
0000. 
0000 
0000 
-0000 
0000 
0000 
0004 
0004 
0001. 
0004 
0002 
0002 
0002 
0004 
0004 
0005 
09005 
0005 
0005 
0006 
0006. 
0006. 
0006 
0Q0a 
0008 
0009 


9009 


0042 
0012 
0042 
Q043 


- 0043. 


0014 
0044 
0014 
0016 


31 


32 


@eeeeeeeeeeese @® @® @® @ @ @® @ @# a2 & 


eo ° 


END 3 
Oy t# Ol * 1 3 
DI t= DI + 1))) 3 


ce) 
+} 
4 
wm 
oO 
AL tee 


Oc THEN 


GIN 
ID (JUMP OUT 2 TQ XIT) 3 
R ts DO] 3 
SI. ¢8 R 3 
If SC = ALPHA THEN ELSE 
BEGIN 

SI] 42 SI * J] / 

Sy oe SI 4 

Ir $C & AcPHAT TREN ELSE 

WUMP QUT TO XIT 3 


XIT3 i 
PRESENT #® TALLY 3 
oe END PRESENT. 3 
IF PRESENT (STRINGs ZIPPY» STRINGI» STRINGILEFT? STRINGIREPEAT® 
LeSTRINGIDs GO) EQV TEMPTOG THEN 
STRINGFOUND #& TRUE 
ELSE IF STRING NEQ O THEN 
STRINGFOUND %3 


PRESENT (STRING» ZIPPY, STRING vs STRING LEFT STRINGUREREATs a 


“A™STRINGJDs STRINGI)D EQV TEMPTOG. 
ENO STRINGFOUND 3 


DEFINE GETSTRINGS * IF ISOLATESTRINGS CLISTTYPE) THEN GO TQ NEXT #, ee 
BOOLEAN PROCEDURE ISOLATESTRINGS (LISTTYPE) 3 

VALUE LISTTYPE 3 

INTEGER LISTTYPE 3 

BEGIN 

STREAM PROCEDURE ISOLATE (Sp Ds Liv 2) 3 


BEGIN. 


LOCAL STOPCHR, 


~DXs : 
QUCTES 3 
LABEL QKe 

NCSTRING» 

STRING 

JUMPOUT? 

NGs 

NEXTNO 3 
TALLY t= 63 3 
STOPCKR &% TALLY &@ 
DI t= LOC QUOTES ; 
oS ts 2LIT "M | 
OS sa 6 nee cone 3 
2 (SI ts 
63 (SJ is of + 13 


09855300 
00855400 
09855500 
09855600 
00855700 
00855800 
00855900 
00856000 
00856100 
09856200 
09856300 
00856400 
09856500 
00856600 
09856700 

- 00856800 
00856900 
- 00857000 
00857400 
00857200 
00857300 
00857400 
90857500 
00857600 
00857610 
00857620 
00857630 

_.. 00857640 
00857650. 
- 00857660 
00857670 
00857680 
32 18 47 LONG 
_ 00857700 
09857800 
00857900 
(90858000 
09858100 
09858200 
START OF SEGMENT 
09858300 
00858400 

~ 90858500 
06858600 
00858700 
00858800 
00858900 
00858910 
98859000 
00859400 
09859200 
00859300. 
00859400 
09859500 
00859600 
00859700 
00859800 


AAA HAM HHS HH tt st tt a tt a A A a A A 


0016 
00146 
0016 
0017 
0016 
0018 
0019 
0019 
0022 
0022 
0022 
0023 
0023 
0023 
0024 
0024 
0025 
00258 
0025 
0025 
0026 
0026 
0026 
0027 
0028 
0032 
0034 
0035 
0037 
0038 
0044 
0044 


NEXT SEG 


0000 
0000 
0900 
0000 
0000 
0000 


or es eee ey 


0000 
0000 


. 0000 


0000 
0000 


0000 


0000 
0000 — 
0000 
0000 
0000 
9000 
0000 
0000 
0004 
0002 
0002 


31 


33 


OKs 


NOSTRING? 


STRINGS 


IF SC = ALP 
ELSE IF S¢ 
BEGIN 


DI #3 LOC 

4 CIF §¢ 
ol 3: 
OI ts 

If Sc = * 


END) 3 
60 TO NOSTRING 


SI] ts 


Ox ¢= OF 4 


SI" 13 


HA THEN 
NE@ " “" TREN 


QUOTES 3 
= OC THEN JUMP QUT 2 TO OK 3 
Sl" 13 
DI + 4) 3 
3" THEN JUMP OUT 3 


2 


# 


IF SC & ™," THEN 


BEGIN 
DI 


er oe a 


pS #% LIT *4+" 


END 3 
Sy] 
TALLY 


SIo+ 1 4 
$= Q 3 


STOPCHR (COI ts 


IF S¢ 

JUMP 
SI t% 
OI ts 
DS ts 


0 #3 OF 


TALLY 


Se 


“OE + 2.3 


$s D1 3 


} 


OX 3 
= DC THEN | 

“OUT 4 TO STRING 3 
$I" 43 

04 

1 CHR 3 


I 3 
t= TALLY + 1) 3 


Pe by 3 
+ 8 LIT. "00000010" 5 
QO JUMPOUT 3 


CIF SC GE@ "0" THEN 


BEGIN 
DY 35 
0S ts 
OS ts 
IF $¢ 
BEGIN 

S] 

oI 

0s 
END} 

UMP 

END 3. 

IF sc = 

ELSE IF 

BEGIN. 
IF SC 
DI ts 
4 CIF 

BE 


DX 3 

LIT "0" 3 
CHR 3. 

GEQ "0" THEN 
mm ST" 1G 
$3 DOI * 2 3 
$2 2 CHR 3 


QUT 1 TG NEXTNO 3 


ALPHA THEN 
SC NEQ " " THEN 


= "3" THEN JUMP OUT 2 TO NO a. 
LOC QUOTES 3 ; 

$C = OC THEN 

GIN 
SI] ts SI" 43 


00859900 
00860000 
00860100 
00860200 
00860300 
0@860400 
09860500 
06860600 
00860700 
00860800 
00861200 


00861300. 


09861400 
00861500 
00861600 
09861700 


09861800. 
- 00861900 
00862000 


00862100 
00862200 
009862300 
09862400 


00862500 


00862600 
08862700 


00862800 


00862900 


00863000 . 

00863040 
00863020 
00863030 


09863100 
00863200 
00863300 
00863400 
06863500 
00863600 
00863700 
09863800 
09863900 


00864000 


00864100 


00864200 


09864300 


— 09864400 
00864500 


00864600 


09864700. 


00864800 
06864900 
00865000 


09865100 


00865200 
00865300 
09865400 


00865500 


AAA HAMA AA AH HAA A tt A A tt I A A a a tt st sa st 


0003 
0003 
0004 
0004 
0005 
0006 
0007 
0007 
0008 


0009 


0009 


0009. 


00140 
000 
0014 
0044 
0014 
00te 
O0%2 


00% 


0012 


0044 


0014 
0015 
0015 
0015 
0045 
0016 
0016 


0016 


0017 
0018 
0018 
0018 
0019 
0019 
0020 
0020 


00280 


Q021 


0022 


0022 


00282 
0022 


0023 
0023 
0024 


0024 
0024 
0024 


0025 
0025 
0025 
002? 
0037 
0028 
0028 


® @eeeeeee@eeeeee®eeeeeseenr es 


e 
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JUMP OUT 3 TQ NO 3 


END 3 

ST t= SI ™ 1 3 

DI #= DI + 4) 3% 
END 3 


Sl 13 ST + 4) 3 
JUMP OUT TO NO 3 


NEXTNG@?! 
3 
ena GQ TO.NO # 
JUMPOUTS ve 
ce MUMP QUT. 34 
NO? 
Sr #8 SS] * 43 
$35 $I 3 
DI se 44 3 


baits TALLY 3 

— TALLY $= STOPCHR 3 
Ld CTALLY = TALLY + 63) 
STOPCHR #3 TALLY j 
Sq] t= LOC Li 4 
BDI #3 OI + 7.3 
S] ts Sr +7 3 
OS $2 1 CHR 3 
OL t= Le 3 
ki = OJ) 3 

END ISOLATE 

LABEL NEXT 3 


INTEGER PROCEQURE DEFINESTRING (Is LEFT» RIGHT) 


VALUE LEFT, RIGHT # INTEGER I» LEFTs RIGHT 3 
BEGIN 


IF LEFT t= 10x%401286] + 1661886] = 99 THEN 


BEGIN 
LEFT #3 4 3 
RIGHT %= 6Q 3 
END ELSE 


IF RIGHT 23 10x1,024:6)] * 1.03036) # 99 THEN 


RIGHT i= LEFT 4 
I t= FULLLENGTH + 1 » STRINGI 3 


LEFT t= MIN (MAX CLEPT* IF COBOLFILE THEN 6 ELSE 1)¢ v 


RIGHT t= MIN. CMAX CLEFTSRIGHT)» I) 3 
DEFINESTRING ¢# LEFT = 4 3 
1 ts RIGHT = LEFT + 13 
END DEF INESTRING 3 
IF NOT SCANTOQG THEN 
BEGIN 
Ig: PARAMETERL = "ECHO * THEN. 
BEGIN — 
ITF. CHANGETOG THEN 
CHANGEECHG $= TOGGLE (CCHANGEECHGs, 2) 
ELSE 
EDITECRO $* TOGGLE CEQITECHOs 2) 3 
GO TO NEXT 3 


END 3 
READONLYCHECK 3 
END 3 
IF EDITTOG THEN 


00865600 


09865700 
00865800 
00865900 
06866000 
00866100 
00866200 
00866300 
06866400 
00866410 


00866420 
09866430 
09866500 


090866600 
00866700 


_. 09866800. 
90866900 
00867000 

00867100 


00867200 
00867300 


09867400 - 

‘00867500. 
00867600 
00867700. 


00867800 
06867900 


90868000 
00868010 
00868020 
00868030 


06868060 
00868070 


, 00868080 


00868090 
09868100 
09868110 
06868120 
008681430 
00868140 
00868150 


(00868160 | 
09868170 


090868190 
00868200 


00868300 
- 09868400 
9868500 

00868600 


06868700 
00868800 
090868900 
00869000 
09869400 
00869200 
00869300 
00869400 


ig a ig eS a a oe 


0029 


0030 
0030 
0030 
0034 
0034 
0031 
0032 
0032 
0032 
0032 
0032 
0033 
0033 
0034 
0034 


0034 


0035 
0035 
0037 
0037 
0037 
0038 
0038 
0038 
0038 
0040 
0040 


0040 


0040 
0040 
0049 
0044 
0044 
0045 
0046 
0046 
0050 
0054 
0055 
0062 
0067 
0068 
0070 
0073 
0074 


QO7S 
0076 
0076 


Q077 
0079 
0080 
0086 
0086 
0086 


0088 
0088 
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BEGIN CEs : 00869500 


T 0088 

IF NOT NUM AND NUM2 AND NUM3) THEN 00869600 T 90089 

ERROR (NEXTs O» PARAMETEROs ™ ERRORe") 3 00869700 T 0092 

IF NOT ITSOLD (N #* PARAMETER3) THEN aoe 00869800 T 0096 

ERROR CNEXTs Os “MISSING"» ® FORMAT") 3 OE 99869900 -T. 0098 

ROISC CATs RECORD) 3 pi ere ce 09870000 T 0493 

If COBOLFILE THEN ea 09870100 T 105 

RECORD (01,(1235) ts "@eeeeRe" ; 00870200 T O4Q5. 

ENB ELSE 00870300 7 0408 

BEGIN se Pecten eS 7 00870400 T 0408 

[tao tz 0 & "9999" [12'2e4e24) 3 Pole te eL y 00870500 T 04110 

ISOLATE CIMAGEs STRING» I» M) 3 Oe es goeTrego0 F 0118 

Ik I NEQ 64 THEN US SOE sess 00870700 T 0145 

BEGIN - 00870800 T O415 

REGATIVENUMBER #5 FILEINFOQ 3 00870900 T QO116 

IF SCANTOQG THEN ca ceeeas = 060871000 T O41? 

Ip NOT CEMPTY1 OR CNUM1 AND CNUM2 OR EMPTY2))) THEN | ee 00871100 T 0118 

FILEINFQ &= DATA 3 HU eg Ge 00871200 T 0122 

STRINGI #2 Jel4487) 3 ae cee 00871300 T O24 

STRINGID #3 REAL CI LSS 0) 3 00871400 T 0125 

STRINGILEFT t= QEFINESTRING (Ie Os 0) 3 00871500 T Qie?7 

STRINGIREPEAT #* I 3 hoeteaaioe nace 00871600 T 0129 

IF M NEQ 64 THEN “eh 09871700 7 O134 

BEGIN . ope 09871600 T0434 

STRINGW $3 Mel4187) 3 pole 00871900 T 132 

STRINGWD #* REAL «M LSS QO) 3 06872000 T 0134 

STRINGJLEFT &* DEFINESTRING (Ms Or 0) 3 00872100 T Q1435 

STRINGJREPEAT t= M 3 ee dosti 00872200 T 0138 

END ELSE ae Pe 098723900 -T ..0139 

STRINGJ t# 64 3 ; ee ee oe O67 2H00 T  OLI9 

FILEINFO ¢= RELATIVENUMBER 3 : oe See oe oe QOBFESOO Tt OFM! 

END 3 09874100 T QO143 

Ip STRING] = 0 OR CCHANGETOG AND STRINGJ & 64) THEN 00874200 T 0143 

ERROR | (NEXT> Os “"MISSING’s " STRING") 3 . ae «00874300 T 0146 

IF STRINGJ = 64 THEN he ES 2 00874400 T O454 

STRINGY t= QO 3 Se ee 00874500 T 0152 

END 3 : ES eh eee 09874600 T 0453 

IF FALSE THEN : 00874700 Tt 0153 

NEXT? 00874800 T 0454 

_ ISOLATESTRINGS #% TRUE 3 ae . 00874900 T 0155 

END ISQOLATESTRINGS 3 HO es ecco os 0QRT§000 7 OF89- 
ve ae oe 33 TS 359 -LONGs NEXT Seq. .34 

PROCEDURE EXTERNALFILE CLISTTYPE) 3 ee 09875100 YF 0000 

VALUE LISTTYPE 4 INTEGER LYISTTYPE 3 06875200 T 0000 

BEGIN 00875300 T 0000 

FILE RO DISK SERTAL (2s INF UT C3) eel C4)) 3 25 decncaed 00875400 7 0000 
eae ee “START OF SEGMENT «teeta ben 34 

LABEL MORE, a es ee 06875600 T. 0004 

EOFs Me oo ee oe 99875700 T 0004 

NEXT 3 00875800 T 0004 

BOOLEAN POSTED» 06875900 fT O04 

B3 | | | i 00876000 T 0004 

=e LOCKED #= TRUE 3 OG BFEL00:.7 0004 

RESETN $® N 3 rs a 00876300 Tt 0005 

FILL RO WITH INPUT Cldse INPUT Caje *e 4s ¥e ao 09876400 T 0006 

12 + REAL CPOSTED $= PARAMETERL = "MATL & ") 3 00876500 T 0009 

N %= QO 3 09876600 T 0012 


~ 
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Cn. M $= INPUT (5) 414 3 00876700 T OOL2 

B t= POSTING 3 00876800 T 0014 

IF NUM3 THEN 06876900 T 0015 

BEGIN . . 00877000 T 0016 

IF N $3 PARAMETERS = 1 GEQ@ M THEN pee 00877100 T 0016 

e ERROR (NEXTs O» "USE REG™s "ORD #S.%) 3 ee 00877110 T 0018 

READ SEEK ¢€RQ €N)) 3 tao 00877120 T 0024 

IF NUM4 THEN 09877200 T 0029 

€ M t= PARAMETERG 3 06877300 T 0030 

END . — . 00877400 T 0034 

ELSE IF NOT EMPTY3 THEN oo ee 00877500 T 0034 

B ts TRUE 3 es eee 00877600 T 0033 

I ts IF POSTING THEN ALGQL ELSE DATA 3 : eh 00877700 T 0034 

WRITE (ZIPPY [*]» STAR) 3 0e877750 T 003? 

MORES 00877800 T 0044 

INTERRUPT (1) 3 : ror 00877900 tT 0044 

IF N te N # 2-GTR M THEN Oe QOB7BO00 TT C046 

@O TO EOF 3 eee | OB7B100 T CO4s 

READ CRQe 109 ZIPPY C«)) CEQF] 3 pee ee ye 00878200 T O049 

IF SCANTOG THEN 00878300 T 0054 

IF NOT STRINGFOUND THEN 00878400 T 0055 

GO TO MGRE 3 | Se 00878500 tT 0056 

IF @ THEN UO gg er eyoo T0056 

@ BEGIN } ee 90879200 t 0056 

IF POSTING ae FIRSTCHAR (ZIPPY [0]) = "eH THEN Pe OO 8RE3I00 T0087 

GO TO MORE. 00879400 T 0060 

@ WRITELFCR 3 00879500 T 0061 

: END ELSE WRITESEQ 3 : es act 09879600 T 0061 

: : WRITEROW C(ZIPPYs QUICK» 1) 3 OES el pe rez00-T. 0063 

ee. IF POSTED THEN | ee Oo  ggerego0 1. 0068 

WRITE €RO» STAR) 3 Pee 90879900 T0068 

IF BREAKI = O THEN 00880000 T 0069 

6 BEGIN 00880100 T 0070 

GQ TO MORE 3 capa | 09880200 tT 0074 

EOFY. as oo 998803900 T 0074 

IF POSTED THEN “ oe ogegoa0d. Tt. OOne 

BEGIN ee 00880500 T oO72 

DETACH 3 09880600 T 0072 

] CLOSE CROs PURGE) 3 00880700 T 0073 

REATTACK 3 oe — er 09880800 T 0075 

END 3s DU Od880900 -F 0076 

i Je SEND Dla ESO eo oe ameogie. tT: 0076 

NEXTS SAPO Se 99881000 TOOTS 

N $s RESETN 3. 00881100 T 0077 

® LOCKED $% FALSE 3 00881200 T 0077 

ee ENO EXTERNALFILE } 00881300 T 0079 
Ba TS Ba LONGs NEXT SEG 34 

@ PROCEDURE SPECIAL CLISTTYPEs ECHO) 3 oe 99881400 T 0000 

| VALUE LISTTYPEs ECHO 3 INTEGER LISTTYPE 3 BOOLEAN ECHO 3 oo 09881300 T 0000 

BEGIN 00881600 T 0000 

ee LABEL 00881700 T 0000 
. START OF SEGMENT *#xeeeReee 9 35 

REWRITE» 09881800 fT 0000 

@ OVERFLOWs 06881850 T 0000 

NEXT 3 00881900 T 0000 

DEFINE QUICK = FALSE# 3 00882100 T 0000 

e INTEGER STREAM PROCEDURE CHANGED (SeDels ys STRINGsSSoTeTisSRemanelD) 3 06882200 T 0000 

. * * . % <7 
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0000 
0000 
0000 
9000 
0000 
0Q606 
0000 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0004 
0004 
0002 
0002 
0002 
0002 
0003 
0003 
0003 
0003 
0005 
0006 
0006 
0006 
0006 
0009 
0010 
0014 
0044 
0011 
0012 
0012 
0042 
0013 
0013 
0013 
0044 
00%4 
0014 
0044 
0015 
0015 
0045 
0015. 
0016 
0017 


VALUE Is 00882300 
de ' 00882400 
SS» 00882500 
Te 00882600 
Tis . aloes, 00882700 
SR | ee 90882800 
IOs 06882900 
Me 00883000 

N 3 09883100 
BEGIN aa _ 06883200. 

LOCAL Ke a a 00863300 
TOTAL 3 oe eo 90B83 800 
LABEL aROUNO» ee 9889500 
XIT» 00883600 
NOe 00883700 
UNDERFLOW, . eas 00883900. 
HERE» - oo 98883900 
THERE? : ae 00883910 — 
EXIT 3 a 00883920 
DI 33 0 3 08884000 

pS 32 8 LIT" "3 00884100 

ST #* 0 3 . . a 00884200 

0§ #= 9 WOS 3 Nee - 00884300 

Sq 38 LOC SS 3 ees 00884400. 

DI ¢# LOC K } Oger 09884500 

. ; 00884600 

3 00884700 
OS $= CHR 3 Sede ree ay 00884800 
St-ts $ 3 hh 00884900 
Ot: te pb G = on ee 00885000 
K (0S $= 32 CHR 3 OS 4% 32 CHR) 5 ee 90885100 
DS t= SS CHR 3 00885200 
S t= $1 3 00885300 
Bb ts ol 3 Re ‘ 09885400 
K tm TALLY 3 oe 09885500 
2 (T ¢K (COS t# N CHR 3 os es 06885600 
TALLY $3 K 3 ie 90885700 

JUMP QUT TO HERE) 3 09886000 

DI t# $3 . 00886100 

$1] i= STRING 3 oy fue a 00886200 

IF 1 SC -NE@ DC THEN © — ee 00886300 

o BEGIN Coie eo ele) ORBR6AQ0 
NOE: Pee ar be Feng Oa ne 00886500 
S] ta $3 00886600. 
Dl ta D3 09886700 
OS s# CHR 3 . 09886800 

S ts S$] 3 OU eo Oo paegO. 
D fe OL 3” : oe 09887000 
S] #8 SR 3 ee eo QOS RT IGO.” 
SI] ts SI = 8 00887200. 
SR ge ST 3 ~ 90887300 
TALLY ta 4. er cn ee 00887310 

- GO TO HERE See Ogee T ado. 
END 3 A 00887500 
ID ($8 t* 013 ‘ OE O88 POO0 
S] t= S$ 3 00887700 

IF SC ® ALPHA THEN 00887800 


ow 


ton ee 


a a st tt st tt A HH 


@eeoe%eeeeeeeeeeseek#e ee 8# @® # @# ® «# 


am 


ooL7 
0018 
0018 
0018 
0Q19 
0019 
0020 
0020 
0021 
0024 
0021 
0024 
0022 
0022 
0022 
0022 
0024 
0024 
0028 
0025 
0026 
0026 
0027 
0028 
0028 
0028 
0029 
0029 
0030 
0030 
0034 
0034 
0034 
0032 
0033 
0033 
0033 
9034 
0035 
0035 
0036 
0036 
0037 
0039 
0040 
0040 
0040 
0042 
9042 — 
0043 
0044 
0044 
0045 
0046 
0047 
004? 
0047 


JUMP QUT TO NO 3 = 00887900 

SI] #* SI * T 3 06888000 

SI t= Sr "= 13 090888100 

IF SC = ALPHA THEN 90888200 

WUMP QUT TO NO 3 : ee eae 00888300 

Sf] #= STRING 3 i ~~ ~.08888400 

SI. 33 SJ] ¢ [) ? : 00888500 

TALLY 2% 14 3 00888600 

CHANGED % TALLY 3 00888700 

St O01 3 Sipsiniapree tin Bird eon oreiaeaicle «une OOOO OU 

Dl #2 DO 3 Pee ae ee OQ BBB 900 
Ne oe GO TO THERE. 2. - : Coa be oe  OOBBB ALO 
HERE? es Te 
GO TO ARQUND 3 06888930 

THERES 06888940 
. N (OI t= O1 + v 3 ee 00889000 
O.ts DI; . ee ee oe OO 8E9 100. 

D1 8% TOTAL 3 a 09889200 

8 (Dl te DL + a i ES o 09889300. 

DI $= DI = 1) 3 00889400 

TOTAL & DOL 3 06889500 

DI te SR 3 | 00889600 

8 (OL t# DI = Wy) 3 ee Oe epee roo 
SR $= DI 3 ue oe OB B9800 | 

D1 t= Da : eee 08889900 

Ol t# OF = Ji 008909000 

US ts on 3 00890100 

TALLY wi Se ee See ae, 90890200. 

UME our TO ARQUND) 3 OBS aye ee ee OO B90 300 

Ose pr} Pos ty ee 99890900 
S$] t% SR 3 00890600 © 

8 (SI 32% SI = 1) 3 06890700 

SR #3 SI 3 : = i hiseotseade 00890800 

as TALLY 42 1 3 SE OQ B90800 
AROUND? . ee 06891900 
TALLY #* TALLY #63 3 : a ue 00891400 

K ts TALLY) § 09891200 

TALLY #5 Tl 3 090891600 

T a8 TALLY) 3 098914700 

CI] 43 CL + CHANGED 3 s eet toe 09891800 

GO TO EXIT 3 ; DESEO ae OOB9L900 

M cK (DS #8 N CHR 3 AEE eke ee 09892000 

TALLY &&% K 3 . 00892100 

TALLY #% TALLY + 63 3 00892200 

KL te TALLY 3 ek eee . 09892300 

Ls WUMP OUT) 4 Be ee eo 0892400 
PALLY 42 23 pe oe Oeesesoo. 
~K CCHANGEO 38 TALLY 3 (ues HOP eo 9882600 
JUMP OUT TO EXIT) 3 00892700 © 

$1 ## LOC SR 00892800 

D1 ¢% Loc Ss 3 Mes dotcni ts 06892900 

6 CIF SC NEQ "O" THEN YUMP QUT TO UNDERFLOW # SI ts SJ # 4) 3 090893000 

Dr #3 DI +7 3 00893100 

OS %= CHR 3 09893200 

S$] #3 S$ 3 00893300 

DY *% O 3 09893400 
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VALUE NBO ee 90896000 
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0047 
0049 
0080 
0050 
0050 
0050 
0054 
0054 
0053 
0053 
0053 
0054 
0054 
0054 
0056 
0056 
0057 
0058 
0058 
0059 
00614 
0061 
0064° 
0062 
0062 
0063 
0063 
0065 
0065 
0065 
0065 
0065 
0065 
0066 
0066 
0067 
0067 
0067 
00469 
0069 
0069 
0070 
0070 
0070 
0074 
0071 
- 0074- 
0072 
0072 
0072 
0073 
QQ073 
0073 
0073 
0073. 
0074 
0074 


$$ (DS #3 32 CHR 3 DS te 32 CHR) & 00893500 
05 %*& SR CHR a 06693600 
§ i= SI 3 09893700 
. GO TQ UNDERFLOW 3 00893710 
EXyTt ae ea : : Oe ae 00893720 
~ GQ TO XIT 3 a OE a OO OS TRIO 
UNDERFLOWS oe 00893800 
N CSI t= LOC TOTAL 3 00893900 

DI t= Lac K 3 06894000 

SI $2 SI + 6 3 . 9S alent na saat 00894100 

DI ts OI +7 3 . esol Oa ee 00894200 

OS ts 1 CKR 3 Pe 00894300 

SI te 8 3 oe Ao 99894400 

K ¢€2 (32 CIF Sc NEG * * THEN 09894500 

BEGIN 00894600 

CHANGED %= TALLY 3 a. 09894700 

JUMP OUT 4 TO XIT 3 Se 00894800 

END 3 ee 06894900 

SI t= SI + 1))) 3 Es 00895000 

TOTAL (IF SC NEG " ™ THEN 00895100 

BEGIN 00895200 

CHANGED $8 TALLY 3 cess ie cate cantons: _.. 90895 900 

JUMP GUT 2 TO xIT 3 Ce oe 00895400 

END 3 tee ee 00895500 

SI] t= ST # 4)) 3 Bie oes see 00895600 

XIT? 00895700 
END CHANGED 3 00895800 
BOOLEAN STREAM PROCEDURE EDITS (Fe Ss Oe ND # ree ere ee ae 08895900 


a BEGIN ne gee ee OBE. 00 
“LABEL XIT Q . Pies nee eee QO 8G 6200 
DI 3:8 D 3 00896300 
pS t= 8 Lit" " 3 00896400 
SI ss D3 Y Naan 90896500 
OS #% 9 WOS 3 Re ee 00896600 
01 t= 0 3 ee og eper09 
D te TALLY 3 COS os Bs QO BF 6800 
2 €N (SIT 8% F 3 09896900 
If SC = "@" THEN 00897000 
BEGIN : ee — 00897400 
$1 4% Sl +13 . . CO GO OO BOE 200 

Fo ae ST 3 i 00897300 
‘Sra S 3 a 2D ae ne B97 AGG 

BS t# CHR 3 00897500 

S ts $I 3 00897600 
END . Su gicishcrairiveitet amp ten, ami OQOVT Lon 
ELSE IF SC = "#" THEN ae oe 00897800 
BEGIN ee Oe ag7 ead 
“Sp. 'e-S} 4 43 Cost i Mie oe Og a9 e000 - 

Fo te SI 3 00896100 

SI t= S$ 3 . . 00898200 
Slo48 Slo+44 se ae hth a aa aah pt naa 00898300 

| os sro) : oe © SOagea00 
ENO oe. 00898500 
ELSE ates eee ws 06898600 
BEGIN , 00898700 
OS +8 CHR 3 00898g00 
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REAL LO 


N ¢ 2 ¢ 32 CIF SC NEQ ™ " THEN 
BEGIN 
TALLY #8 43 
EDITS t= TALLY 3 
JUMP QUT 3 TO XIT 3 
ENO 3 
SI te ST #122) 3 
D CIF SC NEQ " " THEN 
BEGIN 
TALLY #8 43 
EDITS $# TALLY 3 
JUMP OUT 3 
END 3 
| SI ts SI #4) 3 
XITs 
END EDITS 3 


If: CHANGETQG THEN 
BEGIN. 
PARAMETERL $s STRINGIREPEAT DIV.2 3 
PARAMETER2 82 STRINGIREPEAT * PARAMETER 7 
PARANETERS %# FULLLENGTH © STRINGILEFT 3 
BANE TERA t= MIN (PARAMETER 3¢ 63) 3 
ENQ: 
WHILE N ee (Lh 3 bb CATII«S LES M DO 
BEGIN 
ROISC CATe ZIPPY) # 
IF SCANTQG THEN 
BEGIN 
TF STRINGFOUND TREN 
BEGIN 
WRITEME (Ne ZIPPY) 3 
Nts N + |] 3 
GU TO NEXT 3 
one FH 


END 
ELSE IF CHANGETOG THEN oat ee 
BEGIN : . Oe 
If I] &*® CHANGED (ZIPPYs IMAGE STRINGIs STRINGWs 
STRING STRINGILEF Ts PARAMETER] » PARAMETERZ.s 
PARAMETER3s PARAMETER4s STRINGI LSS STRING» 
STRINGIO) = 1 THEN 
BEGIN 
RESETN $8 N 3 
REWRITE? 
IF ECHO TREN 


00898900 
0€899000 


00899100 | 


00899200 
00899300 
00899400 
00899500 
09899600 
06899700 


090899800 


09899900 


00900000 


00900400 
00900200 
09900300 
09900400 


09900500 
09900600 


09900700 
00900800 
08900900 


00904000 


09901100 


00901200 
00904300 


09901400 
00901500 


(00901600 
90901700 
(00901710 
09901720 © 
00901730 


090901740 
90901750 


00901760 
00901900 
99902000 


00902100 
09902200 


009902300. 

9902400 
00902700 

00902900 


00902910 
00903000 


— 00903100. 
09903700 
00903800 
90903900. 


090904000 
00904100 
00904200 
00904300 
00904500 
00904600 
00904700 
00904800 
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0074 
0074 
0074 
0075 
0075 
0075 
0076 
0076 
0076 
0076 
0077 


0077 © 


0079 
0079 
0080 


9080 


0081 
0081 
0082 
0083 
0083 


0084 


0084 
0085 


0085 


0086 
0086 
0087 
0087 
0087 
0084 


00a9 


0094 
0094 
0097 
0097 
0103 
0103 
0106 
0106 
0107 
0107 
0106 
0110 
0112 
Q112 


0412. 


Q1l2 


0113. 


01144 
0117 
0119 
0124 
0122 
0143 
0424 
0124 
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WRITEME (N» IMAGE) 3 PE 99904900 


T 0124 

WOISC 3 00905000 T 012? 

END ELSE 09905100 T 0129 

shes IF Il = 2 THEN eee 00905200 T 0429 
OVERFLOWS 7 a OS ao 905250 7.0130 
as ERROR CNEXT» Q# PARAMETEROs " QOVRFLW") 3 gcn9es300 tT «0131 
END : ee 00905400 T 0134 

ELSE , 00905500 T 0134 

BEGIN 00905600 T 0134 

IF EDITS CRECORDs ZIPPY», IMAGE» HALFFULLLENGTH) THEN 00905700 + 0134 

GO TO OVERFLOW 3 ee 90905800 T 0139 

GO TO REWRITE 3 oy ggg05g00 7.0140 

END 3 : ee 09906000 T 0140 

INTERRUPT (1) 3 00906100 T 0140 

AT 2% LgT 3 00906110 T 0446 

(END 3. _ 00906200 T O147 

IF SCANTOG THEN Pe 00906300 T O148 

| oS ERRORX (Os “EQF NO "s "STRING®") 3 ee 00906400 T 0148 
NEXT# : Pe 00906500 T 0150 
IF CHANGETOG THEN 00906600 T Q151 

N $= RESETN 3 09906700 r 0154 

END SPECIAL 3 ye ee 00906800 T 0153 

: | : Co Bb 1S VSO LONG) NEXT SEG. 33 

BOOLEAN COMPLEX 3 ae eas 00906900 T Q000. 
REAL L 3 ee 00906910 T 0000 
IF COMPLEX + SCANTOG GR CKANGETOG OR EDITTOG THEN 06907000 T 0000 
GETSTRINGS 3 00907100 T 0003 

IF NUML AND CNUM2 OR EMPTY2 OR CHANGE TOG) THEN | eer — 09907200 T 0005 

BEGIN | eo 90907300 T. 0009 

N ts PARAMETERI 3 | : ES a es  OdS07T4OO + 0009 

IF NUM2 THEN CEO OG 9 OR 8O0 T0048 
M ts PARAMETER2 7 | 09907600 T OOL4 
ELSE IF SCANTOG THEN | 00907700 T QOL! 

M t= FINITY os | 00907800 T 0013 

ELSE M $= N 3. a 99907900 -T OOLe 

END : ee 00908000 T 0017 

ELSE IF NOT CEMPTY1 OR CHANGETOG) THEN ae - 00908100 T 0017 

BEGIN 00908200 tT 0020 

IF XFILE (126 QO» 2) LSS 2 THEN 00908300 T 0020 

GO TO NEXT 3 | seat thas dea 00908400 T 0022 

TF LOCKED OR NOT POSTING THEN. : CO er egoogsoo + 6043 

WALT (CIF NUM3 ANQ NUM4 THEN os 69908600 tT: c0g4 

MIN CPARAMETERG, INPUT [5)) ELSE INPUT (5)) = 06908700 T 0024 

_ CTF NUM3 THEN PARAMETER] ELSE 0)» LOCKED) 3 09908800 t 0024 
EXTERNALFILE (LISTTYPE) 3 00908900 T 0036 

(GO TO NEXT 3 | i 00909000 T 0037 

: ENO. oe oe e O9G09100 T0038 

ELSE. | oO 00909200 T. 0038 

BEGIN. Ss ee Vee 09909900 T0038. 

IF NOT COMPLEX THEN | 00909400 Tt 0038 

BEGIN | 00909500 T 0039 

AT $2 0 3 | ee. 09909600 7 0039 

N te 40° EGG eeese700. 7 Code 
END 3 | : ae | 09909800 T 0044 

IF CHANGETOG THEN oF 00909900 T 0044 
M t= N 009190000 T o04a4 

T 0042 


ELSE 00910100 
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eeenenee @e 4 


Mts FINITY 3 


_XPARAMETERS [0] #* PARAMETER] 3 


90910200 


END 3 00910300 
OPENCHECK # 06910400 

IF COMPLEX THEN 00910500 

WAIT CKOUNT (Ne Me CLOCK)» FALSE) 3 00910600 

IF ITSOLO (N) THEN 3 00910700 

IF COMPLEX THEN 06910900 
SPECIAL CLISTTYPEs TEMPTOG EQV CIF CHANGETOQG THEN CHANGEEGHO | 00911000 

ELSE EDITECHQ)) 06911050 

ELSE = 00911100 

BEGIN | 09911200 

WHILE N #3 (CL 3 LL CATII.S LEG M po 00911300 

~ BEGIN 00911310 

WRITEAT 32 00911400 

INTERRUPT €4) 3 09911410 

Al. te bat i . 00911420 

-END 00911500 

N is LL Che Fle § + “ING i ee ee oa) 

END 3) ee 00911700 

NEXT3 00911800 
END LISTIT 3 00911900 
oalols 87 LONG 

oe ee ee ee ee ee ee i A i i A i ee ee om ” * * Soe 00912000. 
PROCEDURE EXECUTE » 00950000 
‘BEGIN 06950100 
LABEL NEXT 3 00950200 
START OF SEGMENT 

INTEGER XSUB 3 09950300 
REAL ¥START# | 09950400 
YEASTs 09950500. 
YFILETYPE» 00950600 
YREPEAT» 00950700 
YNCHRS 2 00950800 
BOOLEAN VERBISEXECUTE 3 —— 00950900 
IF VERBISEXECUTE %= PARAMETERO = RSWD (0) THEN 00951000. 

TF PARAMETER1 = "LIBRARY" THEN 09951100 
BEGIN © 00951200 

IF EMPTY2 THEN 09951300 

ERROR (NEXTs 7» "MACROR/"s» MACROLIBRARY) 3 09951400 

IF NUM2 THEN 90951500 

MaCROL IBRARY $= OCTOEC CPARAMETER2) 00951600 

ELSE 00951700 

~ MACROLIBRARY #* PARAMETER2 } 09951800 

GQ TO NEXT 3 06951900 

END ELSE 00952000 

IF PARAMETERS = "ECHO " THEN a 00952100 
BEGIN 00952200 
“EXECUTEECHO ts TOGGLE CEXECUTEECHOs a eae) 09952300. 

Go TO NEXT. i 00952400 

END ? 00952500 

IF xOEX + 41 GE@ XMAX THEN 06952600 
ERROR (NEXTs Os PARAMETEROs * OVRELW") 5 09952700 

XSUB $s (XDEX + 1) * 13 3 00952800 
YFILETYPE #* DATA 3 060952900 

IF NOT VERBISEXECUTE THEN 00953000 
BEGIN 00953100 


090953200 


pecan na es eee 


0043 
0044 
0044 
0045 
OQ46 
0050 
0052 
0052 
0055 
0057 
0057 
0060 
0065 
0065 
0069 
0074 | 
0076 
0076 
0081 
0081. 
0082 
NEXT SEG 
0051 
0054 — 
0054: 
0054 


kekhke kik 


0000 
0000 
goood 
Q000 

“0000 
0000 
0000 
0000 
0001 
0002 
0003 

0004 
0009 
0009 
0010 
0012 
0013 
00143 
0013 

0045 


0015. 


0018 
0020 
0020 
0021 
0025 
0026 
002? 
0028 
0028 


2 
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XPARAMETERS (11 32 PARAMETER? 
XPARAMETERS [2] %% PARAMETERS 
KPARAMETERS [C3] ¢# PARAMETERS 
_XPARAMETERS (4] #3 ="#000000" 
- YREPEAT te 12 
PARAMETER? #3 INPUT £2) 3 
PARAMETER1 &= PARAMETERO 3} 
¥WLAST te INPUT ¢5] + 4 3 
END ELSE 
IF FILEOPEN AND (NUMA OR EMPTY4) AND (NUM2 OR EMPTY2) THEN 
BEGIN 
If NUMS THEN 
BEGIN 
PARAMETERS t= PARAMETER] 3 
IF NUM2 THEN 
PARAMETER) t= PARAMETER2 


Mes See tee ‘we 


EL 
+ PE RAWETERA ts PARAMETERS 3 
END ELSE 
BEGIN 
PARAMETERS t= 1 3 
FARABETERS t= FINITY 3 


END ee 
PARAMETER $2 OCTDECCXDEX+1+1 OXSTATIONs [1444]41000xST ATION, rane 


PARAMETER2 ts "#MACRQE" 3 
Ir YFILETYPE 75 XFILE CPARAMETER1s PARAMETER2*s 1) = 7 TREN 
BEGIN 
Ree baa 3 
DETA 
CLOSE LIBRARY» PURGE) 3 
REATTACH 3 
END ELSE 
Ip YFILETYPE GE@ O THEN 
ERROR CNEXTs 45 PARAMETERL» PARAMETER) + 
YLAST t= KOUNT (PARAMETER 3* PARAMETERGs =1) 3 
1 ts SAVEFACTOR 3 
FREEF ILE (STATION) 3 
THERMOFAX CSAVEFACTOR t= QO CYLAST + 14) OIV 45 * 15) 3 
UNFREEFILE CSTATION) 3 
SAVEFACTOR $= I 3 
YRILETYPE 42 FILEINFO ; 


END ELSE 
BEGIN 


Ip XPILE (122 OF 2) Ls 2 THEN 
GO TO NEXT 4 
YVLASE t= {NPUT ¢5) + 4 3 
If NUM3 THEN | 
BEGIN 
‘IF YSTART #5 PARAMETER3 = 1 GTR YLAST THEN 
ERROR CNEXTs Os "USE REC™s "ORD #5,") 3 
IF NUM4 THEN 
IF PARAMETERS LSS YLAST THEN 
“ee YLAST 38 PARAMETERG 3 
END. + 


ewe 


IF XDEX LSS 0 THEN 
XECHG #= TEMPTOG EQV EXECUTEECKHO 3 


00953300 
00953400 
00953500 


00953600. 
00953700 


00953800 
00953900 
00954000 
00954100 
09954200 


06954300 
00954400 


09954500 
00954600 
06954700 


09954800 
00954900 
00955000. 
00955100 
00955200 


09955300 
00955400 


09955500. 


09955600 
009535700 
00955800 
00955900 
00956000 
06956100 


00956200 
00956300 


00956400 
00956500 
00956600 


00956700 
00956710 


00956800 
00956900 
06957900 
00957010 


00957100 


00957200 


009574900 


09957400 
09957500 


00957600 
00957700 
00957800 
09957900 


06958000 
00938100 


99998200 


06958300 


90958400 
00958500 


00958600 
00958700 


TF elon te SL Le Le Le LL LLL eee 


0031 


0033 
0036 
0038 
O04, 
0042 
0043 
0043 
Q045 
0045 


00514 
0052 — 


0053 
0053 
0054 
0055 
0055 
0056 
0057 
0057 
0058 


0058 


0059 
0039 
0064 
0065 
0068 
0068 


0072. 


0073 
0075 
0076 
0076 
0079 
0082 
0084 
0084 
0085 
0093 


0094 — 
. 0095 


0096 
0096 
0096 
0098 
0099 


0300 
0104 


0401 
0403 
0108 
01086 
O1t0 


(O1tL 


O14 
O1t1 
Q1%2 


“~ 


IF 


WA 
IF 
BE 


VERBISEXECUTE THEN 
IF YREPEAT &t* GETPARAMETERS (63) = ©O THEN 
GG TO NEXT 3 

IT CCYLAST »@ YSTART) x YREFEAT x 39 FALSE) 3 
MOREINPUT THEN 

GIN 
READ C10 [USER + MAXUSERSJ* 30% IMAGE (¥]) 3 
WRITE CIO CAXMAXUSERS+XMAXXUSERSXDEXe1] 2 30s 
YNCHRS $3 NCHKS & 410134781) 3 


_MOREINPUT && FALSE 3 


EN 

x0 

XN 

XL 

XF 

xR 
RN 
KP 
x$ 
NEXT? 
END E 
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PROCE 
BEGIN 


Dos 

EX ¢8 XDEX # 1 3 

$8 RSTART $8 YSTART 3 
AST t= YLAST 3 

ILETYPE t= YFILETYPE j 
EPEAT $= YREPEAT 3 
CHRS #2 YNCHRS 3 

REFIX 8s PARAMETER 3 
WFFIX % PARAMETER2 3 


XECUTE 3 


DURE XVERBS (K) 3 VALUE K § INTEGER K 3 


DEFINE 


REP 
BE 


EN 
DELE 


LACE = 
GIN. 
If NUM2 QR EMPTY2 THEN 

ERROR CNEXT# QO PARAMETER2* " IS BAD") 3 
M tm #1 3 
FOR I #* Q STEP 4 UNTIL RSWOM 00 

IF PARAMETERO 18 RSWO C1] = PARAMETERL THEN 
: Mots J 

ELSE IF PARAMETERO = PARAMETER2 THEN 

ERROR (NEXTs QO» "OUP "s PARAMETER) 3 

IF M LSS 0 THEN 

ERROR (NEXT» QO» "NO VERB"» PARAMETER) 3 
RSWD (€M] 8% PARAMETER? 3 
Bae 
TE = 


BEGIN 


OPENCHECK 3 
IF NOT NUM THEN 
 PARAMETERL $= N 3 


‘INORBER t=. READONLYFILE 32 


IF NOT NUM2 OR PARAMETER? LSS PARAMETERS: THEN 
- PARAMETER2 #3 PARAMETER 3 
Ite LL CLOC CPARAMETER4))] « F i 
IF ITSOLD CPARAMETER2) THEN 
AT #2 LL CAT] » T i 
LL CI] « T t® AT 3 
MODIFY (I) 3 
LL CAT] » F 88 7 3 
MODIEY CAT) 3 
Note LL Cr] , S # INC 3 


IMAGE £#]) 3 


36 IS 


00958800 
00958900 
00959000 
00959100 
00959200 
00959300 
00959400 
00959410 
00959500 
00959600 


~ 00989700. 


00959800 


00959900 
09960000 
06960100 
00960200 


= 00960300 


00960400. 
00960500. 


00960600 
09960700 


#68 LONG 
99970000 

90970100. 
00970200 


00970300 


START OF SEGMENT 


00970400 


09970500 


00970600 
00970700. 


00972500. 
00972600 


00970800 
09970900 


00971000 


00974100 


00971200 
00971300 


0097140G. 


009714500 


(00971600 
09971700 
00974800 


00971900 
00972000 
00972100 


90972200 
00972300 


00972400 


00972700 
00972800 
00972900 
00973000 
08973100 
00973200 


00973300 


8 AN HAMA Ht 


Et a a at tt 


0115 
0116 
0118 
0118 
0123 
0423 
QO124 
0130 
0137 
0140 
0142 
0142 
0443 
0448 
0150 
0153 
0155 


— 0458 


0460 
0163 
0164 
NEXT SEG 


60051 | 


Q031 
0054 
0051 


eH REE KW 


0000 
0000 
9000 


0000 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000. 
0000. 
0000 
0000 
9000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
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END#=s 
PRINTGRPUNCH = 
BEGIN 
OPENGHECK 3 
Ip NOT NUM3 THEN 
PARAMETERS t= 1 3 
If NOT NUM4 THEN 
PARAMETERS is FINITY 3 
THERMOFAX (Ks QO) 3 
-END#® 3 
LABEL NEXT 3 
IF BOOLEAN (K) THEN 
If Kos 4 THEN 
REPLACE 
ELSE 
DELETE 
ELSE IF K = 0 THEN 
SLOSREYF TLE 


ELSE 
PRINTORPUNCH & 
NEXT3 
END XVERBS 3 


DEFINE CLOSEFILE = XVERBS (0)#, 


REPLACE = XVERBS (1)4> 
PRINT = xXVERBS (2)#» 

DELETE = XVERBS (3)#» 
PUNCH = XVERBS (4)# 3 


oS eo oe ee o* Cr ee S| * * + s ae 


PROCEDURE MAIL # 


BEGIN 
LABEL NEXT 3 


BOOLEAN STREAM PROCEDURE POSTFROM (SENDER» MESSAGE» Z) 3 


: BEGIN 
LABEL OKs 
EXIT 3 


wn 
“_ 
— 
au 

N 


Nee Tee 


DI s= Z 
OS t= a@ LIT ” "3 
“pS 28-8 WDS f. 
$1 13 MESSAGE 3 
20 CIF. SC = "4" THEN 
JUMP QUT TO QK 3 
Sy t® Sy + 1) 3 
TALLY #2 1 3 
POSTFROM t= TALLY 3. 
ee GO TO EXIT 3 
OK. 
SI t= ‘SI + 1 3 
BI :8 Z 3 
63. ¢IF.$C = "3" THEN 
ne JUMP QUT # 
DS 3:= 1 CHR) 3 
DS te 2 LIT "a" 3 
S] t= SENDER 3 
SI t= SI * 1 3 


3748 


START OF SEGMENT 
01024500 


04029000 


94035000 


00973400 


00973800 


98976000 
01023000 
04023500 
* O#024000 


01025500 
04027500 


- Q4028000 - 


01030500 


04032000 — 


01936000 


00973500 
06973600 


06973700 


00973900 
00974000 
00974100 
00974200 
06974300 
09974400 
00974500 
009746600 
00974700 
00974800 
00974900 
06975000. 
00975100 
00975200 
00975300 
00975400 
00975500 
97 LONG 
00975600 
00975700 
06975800 
00975900 


01024100 


01025000. 


01026000 - 
04026500 
01027000 


91028500 


01029500 
01030000 


01031000 
04031500 


014032500 
01033000 
01033500 
014034000. 
01034500 


01035500 


AA HHH ts A Ht tt tt tH A A A Ht tt tt 


9000 
0000 
0000 
0000 
0000 
0000 
0000 
Q000 
0000 
0000 
0000 
0000 
Qo00 
0004 
00245 
0045 
0067 
0068 
0082 
0082 
0095 
0095 
NEXT SEG 
0031 
0051 
0051 
0054 
0054 
0051. 
0054 
0051 
0054 


kk aR aE 


0000 
0000 
0000 
0000 
0000 
0000 
0000 
0004 
0002 
0002 
0003 
0003 
0004 
0004 


0004 


0004 
0004 
0005 
0005 
0006 
0006 
0008 
0008 
0008 


@ 
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EXITs 


O§$ %= 7 GHR 3 


END POSTFROM # 
tf NUM2 THEN 
PARAMETER2 i% QCTOEC CPARAMETER2) 3 


I t= XFILE ("MAIL & "s [F EMPTY1 THEN USERCODE ELSE PARAMETER Zs 


st) 3 


Ip EMPTY) THEN 


BEGIN 


- END 


NEXT? 


If 1 £88 7. THEN 

-— ERROR (NEXTs Or “SORRY? "es NO MAIL) 3 
PARAMETERY t8 “MAIL & % 3 

ONUME $8 FALSE 3 

PARAMETER2 t# USERCQDE 3 

NUM2 %= FALSE 3 

NUM3. $8 FALSE 
- LISTIT ¢17)7 4% POSTING AND QUICK 


ELSE 
BEGIN 
IF PARAMETER1 NEQ@ "TO " THEN 
ERROR CNEXTs O» "MISSING"s " TO, ") §. 
‘IF POSTFROM CUSERCODE, IMAGE» RECORD) THEN 
ERROR CNEXTs QO» "MISSING"s ™ COLON,") 3 
IF I LSS 0 THEN 
BEGIN 
FREEFJLE (STATION) 3 
PARAMETER1 t= "MAIL & " 3 
—GREATEFILE €15) 3 7 
UNFREEFILE ¢STATION) 3 
END 
ELSE IF I GTR 2 THEN 
BEGIN 
WRITE (LIBRARY CINPUT [5] + )6 10% RECORD C*)) # 
GLOSE (LIBRARY) 3 
END ELSE | 
ERRORX Cle "MAIL & "se PARAMETER2) 3 
END 3 


END. POSTMAN 3. 


ee 


ahd COPY 3. 
GIN 
BOOLEAN Bs 


MERGE. 


LABEL NEXT a 


If PARAMETER! = "OVERITE” THEN. 
SEG] 
COPYCLOBBER t= TOGGLE (COPYCLOBBER, 2) 3 
GQ TO NEXT 3 
END 3 
READONLYCHECK 3 
IF XFILE (120 Or 2) LSS 2 THEN 
GO TO NEXT 3 
Ir INPUT ¢€3) NE 10 OR INPUT [£4] MODM 30 NE@ O THEN 


— START OF SEGNENT 


01036500 
01037000 
01037500 
01038000 
- 91038500 - 
01039000 
014039500 
01040500 
01041000 
04041500 
04042000 
01042500 
- 01043500 
04044000 
0045000 
- 94045500. 
01046000 
08047000 
04047500 | 
01048000 
01048500 
01049000 
04049500 
01050000 
04050500 — 
04051000 
01051500 
_ 93052000 
09053000 
01053500 
04054000. 
04054500 
01055000 
01055500 
04056000 
04056500 
01056600 
01057500 
01058000 
01058500 
38 1S 90 LONG 
94059000 
01059500 
0¥060000 
01060100 


014060200 
01060500 
04060550. 
01060600 
02060700 
04060850 
04060900 
01060950 
04061500 
01062000 
04063500 


faa GA 4G oa oe ea ioe 0 ee a a oa 


0009 
0009 
0009 
0014 

0014 
0014 
0016. 
0018 
0018 
0019 
0020 
0026 

0026 
0028 
0029 
0034 

0032 


0033 


0033 
0033 
0035 
00435 
0041 
0043 
0048 . 
004a 
0049 
0050. 
9051 
0070 
0Q74 
O07, 
0077 
0078 
0084 
0085 
0085 
0087 
0087 
0088 
NEXT SEG 
0051... 
0051 
0054 
0051 


te eke Wee de ee 


0000. 
0000 
0000 
0000 
0004. 
0004 
0006 
0006 
0007 
0009 
0009 


v4 
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ERROR CNEXTs 32 PARAMETER1» PARAMETER2) 3 
IF NUM3 THEN 
BEGIN 
14s PARAMETER 3 = 43 
IF .1-GTR INPUT (5). THEN | 
: ERROR CNEXTs Qs "USE REC™s "ORD #5,%) 3 
IF. NUM4& THEN 
M t= MIN (PARAMETERS = Yo INPUT £5)) 
ELSE M 3s I 3 
END 
ELSE 
BEGIN 
I te 043 
M $= INPUT (5) 3 


IF DATAPILE AND MERGE ts PARAMETER3 = "MERGE " THEN 


ERROR CNEXTs Se " TYPES "s PARAMETERS) 3 
END ode: 
WAIT (M ™ Ja FALSE) y 
~ READ SEEK CLIBRARY CIJ) 3 
B ts NOT ¢COPYCLOBBER FQV TEMPTOG) 3 
FOR I $= | STEP 1 UNTIL M DG 
BEGIN 
~ READ - CL IBRARYs 10+ IMAGE [¥#]}) 3 
IF MERGE. THEN 
N #3 TF COBOLFILE THEN DEC CIMAGE [O]» 6) 
ELSE DEC CIMAGE [9], 8) 3 
IF ITSOLO (N) AND B THEN 
ERROR CNEXTe Or "GVERITE™s * TS OFF") 3 
WOISC 3 
INTERUPT Cle te I+ 1) 3 


END 
NEXT$ 
CLOSE CLIBRARY) 3 
END 3 


eee eer nee oe 


PROCEDURE ZIPIT # 
BEGIN 
ALPRA STREAM PROCEDURE ENDCHECK (8S) } 


BEGIN 

SI ots S$. Be 

IF SC # "2" THEN 

BEGIN 
Dr *= LOc ENDCHECK 3; 
Ol s# OI + 3 3 
“DS t# CHR 3 
$3 CIF $C NEQ ". " THEN JUMP QUT 2 

Sy s% ST 4 4203 


4 CIF SC = ALPHA THEN DS $8 1 CHR ELSE JUMP out) 3 


ENG 3 


. END. ENDCHECK 3 
LABEL: NEXT 3. 


READONLYCHECK 4 
— ROISC. CFIRST « Te RECORD) # 
If ENDCHECK CRECORD)~ = Q THEN 
ERROR CNEXTe O» “INV FIR"» "ST CARD") & 


01964000 
01064500 
010635000 
01065500 


01066000 


01066500 
01067000 
01067500 
041070000 
04070500 
01071000 


(01071500 
04072000 


01072500 
02072600 
01072700 


01073000 
08073500. 
04075000 


01075100 
01075500 
04074000 


01076100 
04076200 
04076300 
0£076400 


02076500 


01076600 
04077000 
04078000. 

01078500 


04079500 
0107969090 
01080000 


@1 LONG 


0086500. 
01087000 
04087500 
03087550 


_ START OF SEGMENT 
: 01087600 | 
01087650. 


01087700 
01087710 
01087750 


. 01087800 
04087810 
04087850 
04087900. 
01087950. 


01087960 


94088000 
01088050 
01088400 
01089500. 


01090000 
01090500 


BSS5 ee aan eae SoG aa sa 
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0012 
0014 
0045 
0016 
(0017 
0018 
00243 
00a3 
0025 
90249 
0029 
00249 
0029 
0039 
0031 
0033 
0038 
0038 
0041 
0046 
0049 
0050 
0030 
0034 
0054 
0055 
0059 
0064 
0066 
0074 
Q076 - 
0077 
Q078 


054 
0034 
0054 
00514 
kk at ee 
0000 

0000 

0000 

QQG0 


NEXT SEG. 
0 


2 


4Q 


ee e@eeeenee 4 


RDISC (LAST 


ERROR (NEXT» O» 
WAIT CKOUNT Cle FINITY? 


+ Fe IMAGE) 3 
IF ENDCHECK CIMAGE) NEQ "ENDO" THEN 
"CARDe ") & 


"NO END "p 
CLOCK) = 2e XLOCKED) F 


FILL LIBRARY WITH PREFIX» SUFFIX 3 
READ SEEK (LIBRARY (M = CAT f® FIRST«T) * 22) 3 


Its Q 3 
WHILE AT #3 LL CAT] ,» T NE@ 1 00 
BEGIN 

ROISC cits PHAGE. 3 


WRITE CLIBRARYs 


I te J 


+ 4 
IF ENOCHECK (IMAGE) NEQ O THEN 


BEGIN 


RECORD (9] $2 I 
WRITE CLIBRARY» ve RECORD (€#)) 3 


IF M + 1 NEQ M 
READ SEEK CLIBRARY (M]) 3 


$= AT = 2 THEN 


READ CIMAGE E*]s lo» RECORD C*J) 3 
END $ 
INTERUPT C1» 2s M) 
END 3 
IMAGE (9] t= |] 3 


CLOSE CLIBRARY) 3 
IF NOT EMPTY1 THEN 
BEGIN 
PARAMETER3 i= 1 3 
PARAMETERS 45 FINITY 3 
-- THERMOF AX (8s (0 + 14) DIV 15 x 45) 3 
END 
ELSE 


BE 


GIN 


FILEINFQ $= DATA 3 
CLOSEFILE 3 

ZIP WITH DISC 3 
END 3 


NEXT? 


CLOSE (LIBRARY) 3 


END 3 


ee 


E@IN 


DEFINE CLOSEIT = 
Pa 


GPENCHECK 3 
CLOSEFILE 3 
END# 3. 


PROCEBU 


RE OPEN 3 


‘BEGIN: 
LABEL NEXT 3 


IF FILEQPEN THEN CLOSEF ILE 


TABAMOUNT 


oo oe eee ee ee ee a ee 


$s 0 3} 


PREWHERE #5 * 1 3 
IF FILEINFO #3 FILETYPE CPARAMETER3) # O THEN 
ERROR (NEXTs S» " TYPES “» PARAMETERS) 3 
I t= XFILE (122 OF "1) 3 


2 


- 


‘+ ke ok 


we eee 


* 


* 


? 


10s THAGE C*3) 3 


Ce ee ee 


a ee ee eee ee 


01098100. 


01092000 
01093100 
04093200 
01095500 


01096000. 
01096500 


01096600 
0697000 
01097500 
01098000 


01098500 
01999000 
01100000 
01100500 
01100510 


01100600 


04101600 


03202000 - 


01102500 
01103000 
01104900 


01904500 


04104600 


02105000 
04105500 
01406100 
01106200 


08107500 
01108500 


~ 04109000 


40 TS 


01199500. 


01109600 


. 94110000 
014411000. 


01111500 
01111600 


Q1111700 


04112000 


108 LONG 
91113000- 
04113500. 
08113600 


01113600 
01414000 


Q1116500 


01117000 


04817500. 
01118000. 


01118500 


START OF SEGMENT » 


01119000 
01119500 
01421000 
01122000 
01126000 


01326100 


Mt to a sh 1 dt ee ee te a 


0019 
0022 
0024 
0030 
0034 
0038 
004? 
0047 
0053 
0053 
0055 
0056 
0058 
0059 
0060 
0064 
0067 | 
0073 
0075 
OOrs 
0080 
0083 
00a4 
oqge 
9090 
0094 
0091 
0092 
0093 
0400 
0100 
0100 
0103 
0403 
0104 
0105 
01405 


— 0106 


0107 
NEXT SEG 
0054 
0051 


0054 


0051 
0054 
0051 
0051 
0051 
0054 
0054 

KWRERAN KH 
0000 
0002 
0002 
0003 
0005 
0009 


2 
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FIRST t= 2 4 
— LAST a2 1 8 INFINITY CSFJ & D CFF] j 
: eo Eb gad, Fae 03 
NEXT? 


FILL OIsC WITH PREFIX t= PARAMETER1» SUFFIX $8 PARAMETER2 3 
IF PARAMETERS 2 "NEW " THEN 
BEGIN 

IF 1 GE@ Q THEN 

ERROR CNEXTs 4, PARAMETERis PARAMETER2) 3 

CREATEFILE (450) 3 

FILEACCESS t= 7 3 

FIRST ts Dts 1 3 

LAST 2% 1 & INFINITY (SFI 3 

peter ee t= TRUE 3 

\ * 


b= QO. 3 
INORDER $= FALSE 3 
a TO NEXT 3 


END 
IF 1 ‘Leo Q THEN 
ERROR (NEXTs 4 = Js PARAMETER1* PARAMETER2) 3 


AIF INPUT [£3] NE@ 10 OR INPUT C4] MOD 30 NEG Q THEN 


ERROR (NEXTs 3% PARAMETER1s PARAMETER2) 3 


_ IF INPUT [C6] NEQ@ Oo THEN 


ERROR (NEXTs QO» "FILE IN"s * USE, ") 3 
IF D t= INPUT (5) + 2 GTR MAXFILELENGTH THEN 
ERROR (NEXTs OF “FILE TO™s * LONG, ") 2 | 


IF PARAMETERS = "QLD "OR DATAFILE TREN 


BEGIN 


INORDER t= DATAFILE QR READONLYFILE 3 
N 8 0 3 
FOR AT $* 2 STEP 4 UNTIL O 00 
LL CAT] &= CAT#1) & CNSSENFINCICSF] & CAT@LICFF) 3. 


WAIT oF FALSE) 3 
M te 0 3 
FOR AT $= 2 STEP 4 UNTIL bp 00 
BEGIN. 
READ CLIBRARYs 10+ IMAGE #*)) 3 
N ts JF COBOLFILE THEN DEC CIMAGE [0)» 6) 
ELSE DEC CIMAGE (€9J], 8) 3 
IF M GTR N THEN 
ERROR (NEXT, O» "SEQERR ", QCTOEX (M)) 3 
LL CAT] 2 CAT+#,) & CMZENDESGF] & pA PSUIEEE. A 
-INTERUPT (19 29 AT ™ 4) 3 
END 3. 
END 3 Tce dt 
FIKEACCESS #= I 3 
MODIFIED #3 NOT FALSE 3 
LL £0]. T t% 4 3 


CLOSE (LIBRARY) 3 


OUND pe Od 


IF. READONLYFILE THEN 
ERRORX (7s "READ ON" PLY FILE") & 


END 3 


01126200 
04126500 
01127000 
01128500 


0#129000 


01130000 


04130500 


0#130650 
01430700 
01130750 
01130800 


01130850 


01130900 
01131000 
01233500 
01134000 


01134500 
(01135000 — 


01135500 
01136000 
01446000 
04247500 


91155000 


01155500 
01156000 
01157500 
01157600 
01157700 


01458000 


01458500 


02458600 


01159000 
01160000 


_ 9£160500 


01161000 


01161500 


01162000 
01464500 
01166000 
01167500 
01167600 


01168000 
01168100 | 


01168200 
01168210 


01168220 
01168230 | 


01168240 


01168250 


No fa No ING A ligt ; Ce eee eT 


44, 1s 


04168500. 


01168600 
01169000 


01169400 
04169500. 


01170000 
04171000 


159 LONG 


8 AANA HAA a tH tt a st tt tt tg st sg Ht a ts ts te st 


O4114 
0421. 
0127 


0490 


0430 
0130 
0191. 
0437 
(0199 

0443 
0148 
Q149 
0150 


0452 


0152 
0153 
0155 
NEXT SEG 
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Koes 


DEFINE 


Pe ee ee ee ee ee 2 ee 


INCREMENT #* 


BEGIN 
Ip NOT NUM. THEN 


Eu 


ERRORX (7» PARAMETEROs OCTDEX (INC)? 
SE INC 3% PARAMETER] 3 


ENDS 3 


Ruk 


a ef 


PROCEDURE RESEQ@ 3 


BEGY 


OP 


N. 


REAL LS 
LABEL NEXT 3 


ENCHECK 3 


IF NUM2 THEN 
BEGIN. 
"IF NOT NUMI THEN 


ERROR CNEXT» QO» PARAMETER» "INVALIO™) § 


“IF NUM4 THEN. 


INC t= PARAMETERS 3 
IF NUM3 THEN 
M $= PARAMETERS * INC 


“ELSE M ts PARAMETERI © INC 


IF M + INC * KOUNT (PARAMETER 1 »PARAMETERZ#™1) Gee Le CAT}, 3 THEN 


ERROR CNEXTs Os PARAMETEROs " ERRORe") 3 
AT t= LOC CPARAMETERY) 3 
IF M+ INC LEG LL CLL CATJ¢F 34S THEN 
ERROR CNEXTs O» PARAMETERQs " ERRORS") 3 


ON te Mop 


WHILE CL t= LL CATI2«S LEQ PARANETERZ 00 


BEGIN 


LL CAT] » S #8 N $= .N # INC 3 
MODIFY (AT) 3 
AT $= LeT 


-ENQ # 
END 
ELSE 
BEGIN 


IF NUM THEN 
INC tm PARAMETERL 3 3 


IF INC x KOUNT Cis FINITY? "1) GE@ INFINITY THEN. 


EN 


-ERROR CNEXTs bid PARAMETEROs " ERRORe™) 3 


Ne t= 0 2 

AT 32 0 

WHILE ar te LL CAT] . T NEG 1 00 
bb CAT] « S t# N te N + INC 3 
MODIFIED t= NOT FALSE 3 

Db. 

te N# ING 3 


Sy 


If NOT DATAFILE THEN 


NEXT? 
END 


% eee 
DEFINE 


INORDER %& READONLYFILE # 
RESEQ 3 


| 


TAB ® 


BEGIN 


01171500 
04172000 
011721400 
02172500 
01173000 


01173500 


01174000 


0474500 — 


02175000 
01175500 


(04175600 


‘START oF ‘SEGMENT 


04177500 


01176000 
01176100 
01176500 
01177000 


01178000 


01176500 
01179000 
01179500 


_ 01180000 
0180500 
01180600 


04180700 
01181000 
01181010 


. 01184020 
» 041181500. 
Qf182000— 


~~ 04262500 


94183600. 


04183000 
01183500 


2184000 


04185500 


041186000 
041186500 
04187000 
04187500 


01187600 


94187700 


42 18 


04188000 


01188500 
01189000 


_ 04189500. 

oe 01289600. 
01190000 
03190500 


01191000 
04191500 
01192000 
01192500 


Wi Pat a a ee a es a ee ee ied a 


88 LONGs 


01193000 
01193500 
01193600 


T 
T 


T 


0051 
0054 
0051 
0051 
0054 
0054 
0054 
0054 
0054 
0051 
00514 

HRB EE 
0000. 
0000 
0004 
0002 
0002 
0003. 
0007 
0007 
000¢ 
0009 
0040 
0043 
0018 
0023 
0024 

(0033 
0037 
0037 
0043 
0043 
0049 
0052 
0053 
0054 
0054 
0054 
0054 
0055 
0056 
0059 

(0065 


0051 
0051 


: 42. 
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IF NOT NUML THEN 
BEGIN 
IF NOT EMPTYL TREN 
TABON #3 TOGGLE CTABONs 1) 
ELSE 
ERRORX (Ps PARAMETERQs ONOFF (TABON) @& 


OCTDEX CIF COBOQLFILE THEN TABAMOQUNT + 7 ELSE TABAMOUNT + ay 


[364836812]) 3 
END ELSE 


BEGIN — 
IF RELATIVENUMBER,s£C 282] NEG Q THEN 
PARAMETER) t# TABAMOUNT + 1 + 
CRELATIVENUMBER & RELATIVENUMBER(123%3)) 
ELSE IF COBOLFILE THEN 
PARAMETER] t= PARAMETERL » 6 3 
IF TABAMOUNT ts PARAMETER, GTR 55 THEN 
. TABAMOUNT %= 55 3 
IF TABAMOUNT #3 TABAMOUNT = 1 LSS 0 THEN 
TABAMOUNT = Q 3 
END 3 
END#s 
Zw kk k et hk & & a ee oe ee ee 2 2 ee x * woe ee Oe WH. 
SAVEIT = oe 
BEGIN 
IF NQT NUM 1 THEN 
ERRORX (7s PARAMETEROs QCTDEX CSAVEFACTOR)) 
ELSE SAVEFACTUOR is PARAMETER 3 


-END#.3 ; 
; a ee ef * eRe ” ce ee 


PROCEDURE. COMPILE j 


BEGIN. 
LABEL NEXT ; 


OPENGHECK. 3 
If. EMPTY2 THEN ; 
ERROR CNEXT* 3 PARAMETERIL* PARAMETER2) 3} 
IF DATAFILE AND EMPTY3 THEN 
ERROR (NEXTs 3¢ PREFIX# SUFFIX) 3 
If NOT EMPTY3 THEN 
IF XFILE (PARAMETERS » "DIsk , 2) LSS 2 THEN ; . 
60 TO NEXT noes 
IF. PARAMETERO 2 XFILE CMLINE "» USERCODEs “ty = a THEN a 
BEGIN. ; 
READ (LIBRARY) ; 
DETACH 3 
CLOSE (LIBRARY» PURGE) 3 
 REATTACH 3 
END ELSE ~ 
IF PARAMETERO GEQ O THEN 
ERROR CNEXTs 4e "LINE "» USERCQDE) 3 
If XEIKE (129 Oe "1) GEQ O THEN 
ERROR (NEXTs 4, PARAMETER1s PARAMETER@) 3 
CLOSEFILE 4 — 
IF EMPTY3 THEN 
IF COMPILER = ALGOL. THEN 
PARAMETER3 $8 “alLGgoL " 
ELSE IF COMPILER = FORTRAN THEN 


01194000 
01194010 
01194100 
02494300 
01194450 
04194500 
01494600 
04194700 
01194800 


01194900 

Oll94910. 

014194920 
04194930. 


041494940 
0194950 
01195000 


01195500 
0197000 
08197500. 


01197600 
04198000 


. 91.198500 


04199900 


04199100. 
02199500 
04200000. 


O#200500 


01201000 
01211500 
01212000 


01212500 
01213000 


START OF e134 


1213100 


94213500 
“01214000. 


01216000 
01216500 
02217000 


01218500 


01221500 
08823000. 


01223500 
02224000 


91224500 — 
01225900 
02225500 
01226000 


01226500 


01227000 
01228500 
01229000: 


02230000 


01230500 


01231000 
01231500 


eee a gg i a ae 8 ee ee ea ea ee ea 


0054 
0054 
0034 
0054 
0054 
0051 
0054 
0054 
0054 
0051. 
0054 
0054 
0054 
0054 
0051 
0054 
0051 
0051 
0054 
0051 
0054 
0051 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0054 
0051 
0051 


eeeehatnk 


9000 | 
0004. 
0002 
0004 
0006 
0008 
9009 
0011 
0012 


0014 


0045 

0019 
(0020 
0022. 


0023 
0026 
0030 
0032 
0034 
0035 
0035 
0037 
0037 
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PARAMETER3 &3 “FORTRAN” 
ELSE IF COMPILER = XALGOL THEN 
PARAMETER3 #5 "XALGOL " 
ELSE IF COMPILER = BASIC TKEN 
PARAMETER3 38 "BASIC " 
ELSE 
PARAMETER3 t2# "COBOL " 3 
WRITE (ZIPPY [*]* ZIPPER» PARAMETER1,[6%6)» 
PARAMETER1s PARAMETER2Z elO636)> PARAMETER» PARAMETERS, [686] 
PARAMETER3s PREF IX,[6%6]* PREF IX# SUFFIX,(OS6]» SUFF Ixs 
 USERCODE ¢« (6 § 613 USERCODE) 3 
ZIP WITH ZIPPY Ce] 3 
NEXT - 
END COMPILE 3} 


2 SO A NADP ES eR a aie SF ee ee 


-PROCEOURE DITTO 3 


BEGIN 


BOOLEAN B 3 


REAL Lo 3 
PROCEQURE LINK (X* Y) # VALUE X*# Y 3 INTEGER Xs» Y 3 
BEGIN | 
LE €X] eT. ts Y 4 
MODIFY €X) 3 
LL CY].F &# X 3 
MODIFY CY) 3 


END LINK # 
LABEL NEXT 3 


If PARAMETER1 = "OVERITE” THEN 
BEGIN 
DITTOCLOBBER t= TOGGLE COITTOCLOBBER» 2) 3 
GO TO NEXT 3 
END 3 
READONLYCHECK # 
IF NOT NUM1 THEN 
ERROR CNEXTs O» PARAMETEROs * ERROR") 3 . 
IF PARAMETER2 = "MOVE " GR PARAMETERS = "MOVE ™ THEN 
BEGIN 
IF NOT NUM2 THEN 
_ PARAMETER2 t= PARAMETERL 3 
B t= {TSOLD (N) 
‘PARAMETERS #2 LL CPARAMETERS $8. AT] 3 
Mts LL EI #3 LOC CPARAMETER1)1,F 3 


IF PARAMETERO #* KOUNT CPARAMETERL*PARAMETER29"1) ™ 4 LSS” 0 THEN 


60 TO NEXT 3 
arp ITSOLD CPARAMETER2) THEN 
ob te LL CAT) eT 
ELSE: 
AT $= LL EL t= ATIF & 
IF ¢B AND B te LL 6M),S GEG N OR N GEG LL CLI.5) OR 


Nt INCxPARAMETERO GEQ (IF B THEN PARAMETERS ELSE LL [hd 203 THEN 


ERROR CNEXTs O» "NO ROOM", "8 MOVE ") 3 
IF B THEN 


BEGIN 
LINK (Ms 42 3 
KINK (ATs PARAMETER3) 3 


01232000 
04232500 
01233000 
01233500 
0$234000 
04234500 
01235000 
01238000 
01238500 
01239000 
01239500 
01240000 
02242000 
0¢242500 

43 18 87 LONG» 
. 04243000 T 
08243500 7 
08244000 T 
01244100 T 


Aa at a st 


00460 
0044 
0044 
0045 
0048 
C049 
0050 
0052 
0064 
0068 
0077 
0084 
0085 
0086 
NEXT SEG 
0051 
0054 
0054 
0051 


START OF SEGMENT xexxtkadkun 


04244200 
014244300 
01244310 
(01244320 
01244330 
01244340 
01244350 
01244360 
— O£244500 
03244550 
01244600 
01244700 
01244850 
01244900 
04245000 
01246000 
04246500 
01246510 
01246520. 
04246530 
01246540 
01246550 
01246560 
07246570 
0¥246580 
04246590 
01246600 
01246610 
01246620 
01246630 
01246640 
01246650 
01246660 
01246670 
03246680 
01246690 
01246700 


a a et a ae st st ae tt tr 


0000 
0000 
0000 
0000 
0005 
0008 
0013 
0016 
0046 
0016 
0017 
0018 
0024 
0023 
0023 
0024 
0025 
0029 
0030 
0031 
0032. 
0033 
0035 
0039 
0045 
0047 
Q048 
0050 
0083 
0054 
0061 
0071 
0078 
0083 
0083 
0083 
0084 


z 
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EINK (PARAMETERG.Fs I) 3 
END ELSE 
PARAMETERS 32 & 3 
0G BEGIN ; 
kL C1).S i% N 3 
N92 N # INC 3 
MODIFY ¢1) 3 
ENO UNTIL IT $= LL CI),.T = PARAMETERS ¢ 
INQRDER $= FALSE 3 
GO TQ NEXT 3 
END..3 
“CLOSE COISC) 3 
PREWHERE ?3 PARAMETERS t3 "4.53 
IF NUM2 THEN 
WATT CKQUNT CPARAMETER1» PARAMETER2s CLOCK)» FALSE) 
ELSE PARAMETER2 t# PARAMETER 3 
FILL LIBRARY WITH PREFIX» SUFFIX 3 
1 ts LOC (PARAMETER1) 3 
Mss 0 3 <— 
B = NOT COITTOCLOBBER EQV TEMPTQG) 3 
WHILE CL #2 LL C1J2eS LEQ@ FARAMETER2 ANDO I LEG M OO 
BEGIN 
IF PARAMETER3 +.1 NEQ PARAMETERS t= I THEN 
READ SEEK CLIGRARY EI ™ 21) 3 
IF ITSOLD €N) AND B THEN. 
eae ue Oe “QVERITE™s " TS OFF™) 3 
1 98 be 
READ (LIBRARY. 10% IMAGE [*]) 3 
a -WOISC 3 
— ENTERUPT C4 22 T= 2) 3 


woe END G 
NEXT! 


CLOSE (LIBRARY) 3 
END DITTO 3 


a ee eee * . a 


PROCEDURE REMOVE 3 
BEGIN 


LABEL NEXT 3 


IF EmpTy2 AND PARAMETER] = "LISTING" THEN | 
BEGIN : 
PARAMETERL $= "LINE "J 
PARAMETER2 $= USERCQODE 3 
END ¢ 
IF. XFILE (129 Os 4) &SS 4 THEN 
60-10: NEXT 3 
IF PARAMETERL = PREFIx THEN 
TF PARAMETER2 = SUFFIX AND READWRITEF ILE THEN 
BEGIN 
READ (OISC £0)) 3. 
DETACH 3 
GL@SE COISCs PURGE) 3 
REATTACH 3 
FILEACCESS t= 0 3 
INORDER #% TRUE 3 
GO TO NEXT 3 


01246710 
01246720 


04246730 


04246740 


91246750 


01246760 
01246770 
01246780 
OP246790 
04246800 


01246810 
04247000 
01247100 
Q4247500 © 


02248500 
01250000 


~ 04250500 


01251600 
04252000 
01252100 
01252500 


01253500 
01254000 


01254500 


01255000 


aa ts 


01255500 
01256000 


01257000 


04257500 
01258000 


01259500 
01260000 
01261000 


164 LONG 


01261500 
01262000 
04262500 

263000 


0% 
AUR @F SEGMENT 
01263100 


01263200 


~ 01263300 


014263400 
04263500 


— 91263600 
04263700 - 


01264000 


(01264500 


01265000 


01265500 


02266000 


01266500 
01267500 | 
01268000 


0#268500 
01269000 


St es ss as) ss st st ot ss 
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go8s 
0087 
0087 
0088 
0089 
0094 
0095 
0098 
Q103 
0105 
0105 
0105 
O107 
0109 
0109 
0109 
Q1145 
0119 
0120 
0124 
ol24 
0130 
0130 
0132 
0138 
0140 
0145 
0146 
0150 
0152 
0158 
0159 
0160 
0161 
NEXT SEG 
0051 
0054 
0054 
0054 


PTET LTLrT’ 


0000 
0001. 
0002 
0003 
0003 
0003 
0008 
0006 
0006. 
0009 
0009 
0014 
0015 
0017 
0018 
0019 - 
0024 


é 


45 


ecscosoevoeveveveeee ee eeeeeeee 4 


e 


ae a ee  @ 
END 3 a 014269500 T O024 
IF INPUT £6] NEQ@ @ THEN 02273000 T 0024 
ERROR CNEXTs O» "FILE IN"s “ USEe "2 3 01273500 T 0025 6 
READ (LIBRARY) 3 . . . 01274000 T 0030 
DETACH 3 ee 01274500 T 0034 
CLOSE (LIBRARY* PURGE) 3 ie Pee 8 91275000 T 0035 a | 
REATTACH 3 wn 01275500 T 0036 
NEXT? 01276000 tT 0037 
END REMOVE 3 04276500 T 0038 @ 
- } . | eee 45 18 39 LONG, NEXT SEG 2 
ee ee ee ee ee ee 94277000 T O0S4 
PROCEDURE LISTING 3 : Ee 042877200 rt 0054  §¢ 
BEGIN: — ; BE 8s QO R277400 T 0054 
BOOLEAN LOCKED 3 01277500 T 0054 
. START OF SEGMENT ke*#stenwe 46 € 
INTEGER PS 3 " ee 01277510 T 0000 | 
LABEL NEXT 3 (Oo Ghar te00 1 og00 
FILE LINE 15 (2» 13). ; rs ee : 01277800 T 0000 €¢ 
FILE FEEDBACK DISK SERIAL (2s 15% 30) 3 oe. ue 01278000 T 0003 
REAL STREAM PROCEDURE READZ (Z» SKP»s Ap N) 3 01278200 T O0C7 
VALUE SKP»s As N 3 01278210 T OcO7 € 
BEGIN | oem ae 01278220 T 0007 
LABEL EXIT 3 es Og 2782390. T 0008 
S$rosn Z 43 es ee e278 8d0.-7. 0008. - | 
Sioee SI * SKP 3 = 94278250 T 0008 
DI s= LOC READZ 3 01278260 T 0008 
A (ol ts DI + 8 3 OF #® OL *™ N § DS #% N CHR § JUMP OUT TO EXIT) 3 01278270 T 0009 6 
. DS t= N OCT 3 Se i  , 04278280 T 0042 
Mi | ee Oper e290 1 00a . 
ENO READZ 3 . Oe on gee 7 8300 T O08 e 
ee IF XFILE ("LINE  "s USERCODEs 4) LSS 14 THEN ee OE BF BaO0  T. COLE 
GO TO NEXT 3 01278600 T 0015 
If NOT EMPTY THEN 04279200 T 0016 e 
IF ] t= FILETYPE (PARAMETER1) = 0 OR 1 = DATA THEN ww, (01279400 T 0047 
. ERROR (NEXT»s Se "TYPES “» PARAMETER) 3 COP OS e281 600 T0080 
WaIT CINPUT CS]e YLOCKED) 3 | se ope BTaO0 7 0085: : @ 
YLOCKED #= LOCKED %s TRUE 2 GEE an ans 01282000 T 0028. 
FILL FEEOBACK WITH "LINE ‘» USERCQDE 3 01282200 T 0030 
IF NUM2 AND NUM3 AND NUM4 THEN 01282400 T 0034 @ 
BEGIN | . eines idole: 01282600. T 0037 
PARAMETER t8 1 3 lr ee 01282800 T 003? 
WRITESEGMENT 3 : 04283200 T 0038 = 
~ pARAMETERO $* IF IFORTRAN THEN 10 ELSE REALCI GEQ ALGOL#h2. - 94283900 T 0039. : 
ee ts IF I GEQ ALGOL THEN PARAMETEROQ = 1 ELSE 0 3 01283310 tT 0043 
EN 01283600 T 0046 @ 
ELSE IF PARAMETERZ«(6130] = "ERROR" OR PARAME TER2 ule aes . oa 01283800 7 0046 . 
= MSYNTAX " THEN : Oe oe 04284000. 1. 0089 : 
2 BEGIN | a Dee QL2BAT00- T0050  ©@ 
 PARAMETER1 ts 23 | OS eG R90 T0089 : 
P5 ts IF IsFORTRAN THEN 9 ELSE 12 3 04284300 T 0054 
END 04284310 T 0054 rd] 
ELSE IF EMPTY2 THEN + 04284400 T 0054 
BEGIN 01284600 T 0057 
FILL LINE WITH "LINE "“» USERCODE 3 01284800 T 0058 @ 
DETACH 3 01285000 tT 0062 
WRITE CLINE) 3 01285200 tT 0063 
REATTACH 3 01285400 7 0067  ) 
ree i @ 
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& 


PARAMETER4 32 3 3 


ENO 


ELSE 


ERROR (NEXT* O* PARAMETERO*® “ ERROR*e”) 3 
-DO BEGIN 

READ (FEEDBACKs 152 ZIPPY Cul) (NEXT) 3 

If PARAMETER1L @ 1 THEN 

BEGIN 


END 


IF I = FORTRAN THEN 
. BEGIN 


IF N t® READZ CZIPPY Ciids 3% Or 4) NEG O THEN 
M $3 N A 


ENO 
ELSE IF I GEQ ALGOL TREN 


BEGIN 
IFN t= READZ (ZIPPY (C14)s de Oe 4) NEG e THEN ee 


M8 NY 


ELSE M $= READZ (ZIPPY Ci2]l»e N t= O» O» 4) 3 
IF M = PARAMETER2 AND N = 0 THEN 


BEGIN 


N ts READZ (ZIPPY CPARAMETERO]» REAL (1=COBOL) + ae Qs ay 3 


IF N GTR PARAMETERS THEN 
GO TO NEXT 3 
IF PARAMETER3 LEQ N THEN 
BEGIN 
PARAMETERS t= N 3 


No t= Reapé (ZIPPY CPS)» IF r=COBOL THEN 3 ELSE Os Oy 6) 


WRITESEQ # 
WRITERELADOR 3 
END 3 
END 3 


END 
ELSE IF PARAMETER, = 2 THEN 
BEGIN | 


IF IT = cOBOL. THEN 
BEGIN 
M t= READZ re ta COls Or te 1) 3 
Ip.M = " " OR = "C" THEN 
M t= READZ ey CO]» Ss Os 6) 
ELSE M te O 3 


END: a 
ELSE M += READZ CZIPPY CP5]» 0» Or 8) 3 


IF M = 0 AND N GTR O THEN 
BEGIN 
WRITESEG 3. 
WRITEROW (ZIPPYs TRUEs DATA) 3 


END ELSE N te M 3 


ENO 


ELSE 
WRITE CLINE COBLJ, 15% ZIPPY (€*#)) 3 
INFERRUPT (4) 3 


ee a END 
NEXT? 


UNTIL BOOLEAN CBREAKI) 3 


N te RESETN # 
If LOCKED THEN 


IF N ts READZ CZIPPY Ci1]~ 45 1» 4) NEQ "LONG THEN 


01285600 
01285800 
01286000 
01266200 
01286400 


01287000 


01287200 
01287400 
01287600 
04287800 


01288000 
04288200 


01288400 
01288800 
01289000 


01289200 


01289400 


01289600 


01289800 
01293000 
01293200 


01293400. 


04293600 


03294600 


01294800 
04295000 
01295200 
04295400 


01295600. 
01296600 
01297000 


01297200 
02297400 
01297600 
01297800 
014298000 


01298200 


01298400 
01298600 
01298800 


04299000 
04299200 
94299400 | 

01300000 


01300200 
041301200 
04301600 
01301600 


01302000 
01302200 


01302400 
01302600 


01302800 


91303000 


94303200 


01303400 
04303500 


Sache yy phe ep a ey ep ey ee ee es ee ay 


“~ 


YLOCKED te FALSE 3 


END LISTING 3 
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PROCEDURE INLINE & 
BEGIN 
LABEL NEXT 3 


DEFINE QUICK = FALSE# 3 
IF PARAMETER] = "ECHO " THEN 


BEGIN. 
INEINEECHO 3 TOGGLE CINLINEECHOs 2) ) 


GO TO NEXT 3 
END 3 
READONLYCHECK 3 


IF _NUM1. THEN 


BEGIN: 


No ts PARAMETERL 3 
IF NOT ITSQLD CN) THEN 


ERROR CNEXTs O» "MISSING", OCTDEX €N)) & 


IF NOT MOREINPUT THEN 
WRITEAT 3 . 
I $= PARAMETER2.,C686) 3 


END 


~ ELSE 


NEXTE 


BEGIN 
AT #& LL CLOC CNDI4F Gf. 
N t= LL CATI.S 3 
“oD ots PARAMETERL £4686] 3 
END 3 
IF. NOT NUM4 OR MOREINPUT THEN 
RDESC CATs RECORD) 3 
INLINETOQG $= TRUE 3 
If. I = "I" THEN 
Mts 4 


ELSE IF I = "0" THEN 


Mogs 2 
ELSE IF I # "R"™ THEN 


ELSE M t= 0 3 


END INLINE 3 
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PROCEDURE COLUMN 3 


BEGIN 
INTEGER STREAM ‘PROCEDURE GETCHAR (S$) 3 


BEGIN: : 

LABEL NOPED YES» XIT 3 
DI s# LOC GETCHAR 3 
SI %=s 3 3 


2C4OCIF Sc = ALPHA THEN ELSE IF Sc = * ™ THEN ELSE 


IF SC = """ THEN 


JUMP OUT 2 TO YES 
ELSE IF SC = "oe" THEN 


START OF SEGMENT 


01303600 T 
01303800 T 

46 IS 158 LONGs 
ee 04345000 T 
09345500 T 
04345850 T 
04345560 T 


0152 
0454 
NEXT SEG 
00514 
0051 
0054 
0051 


START OF SEGMENT stetkeatee 


01345570 
01345600 
01345610 
041345620 
01345660 
01345670 
01345700 
01346900 
01346500 
01347000. 
04347500 
04348000 
04348500 
04349000 
04349500 
02350000. 
04350500 
04351000 
04351500 

_,, 04352500 
91353000. 
04353500 
01353600 
01354000 
01354500 
94356000 
01356500 
01357000 
01357500 
04358000 
04358500 
914359000 
~  OF959500- 
ee 04959600 
a7 18 AD LONG» 
01360000 
01360100 
91360450 
01360200. 


01360250 | 
01360300 
01360350 
01360400 
01360450 
01360500 
01360550 
01360600 


AAA AAA Ae as ge ea ae a a 


0000 
0000 
0000 
0001 
0004 
0006 
0006 
0007 
0008 
0008 
0009 
0044 
0016 
0017 
0020 
0021 
O02, 
0021 
0022 
0027 
0034 
0032 
0032 
0034 
0037 
0039 
0040 
0040 
0042 
0043 
0045 
0045 
0047 
0048 
NEXT SEG 
0054 
0054 
0054 
0054 


TO tee 


0000 
0000 
0000 
0000 
0000 
0002 
0003 
0003 


@ 


47 


e 
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TO YES boc) : 01360659 


JUMP QUT 2 

ELSE IF SC = "(* THEN 01360700 

JUMP QUT 2 TO YES 04360750 

ELSE IF Sc = "C" THEN 01360800. 

JUMP OUT 2 TO YES ee ee 01360850 

ELSE IF SC = "3" THEN a 01360900 

JUMP OUT 2 TO NOPE 3 04360950 

S$] $= St # 4)) 3 01361000 

NOPE? 01361050 
ODS t= B LIT "#0000004" § ; a oe 01361100 

GO TO XIT 3 - eee 01361150 

YES: he 0 862200 
7 SI t= SI +143 : ee 01361250 
Ol ts DI + 7 3 01361300 

DS t* CRR 3 01361350 
_XIT3 ; oe os 01361400 
END GETCHAR 3 ee se 4961 650 
IF I 3s GETCHAR CIMAGE) GEQ@ 0 THEN . co He 94964500 
CHARACTER te I 3 oe 01361550 
IF NUM1 THEN . 01361600 
BEGIN 013616509 
COLSTOP4 $= MIN (PARAMETER1s 80) 3 . a = 04361700 
IF NUM2 THEN OO eG ee OT 964900 
BEGIN OO Oe ol OF R6TOSO 
COLSTOP2 t= MIN (MAX (PARAMETER2»s COLSTOP1)» 80) 3 3 01362000 

IF NUM3 THEN 04362050 
BEGIN 01362100 
COLSTOP3 $= MIN (MAX (PARAMETER 3s COLSTOPZ)» 80) ibe recebhbecaandins 04362150 

IF NUM4 TREN 2 oe eo 04362200 
BEGIN : oe 01362250 
COLSTOP4 t= “MIN (MAX (PARAMETERA» COLSTOP3)> 80). b ee see OT 362900 
COLSTOPS s= 4 3 01362350 

END ELSE 01362400 
COLSTOPS te 3 3 ; hoe Bieocee! 01362450 

END ELSE. Oe 362900 - 
COLSTUPS = 2 3 | me Ce 043628590 

END ELSE ge ee aaa, 04362600 
COLSTOPS t= 1 3 01362650 
MAXCOLSTOP t= COLSTOP [(COLSTOPS) 3 01362675 
END ELSE . | ree (01362700 
TE: EMPTY! THEN ee es 01362750 
BEGIN ee Be 043634100 - 
SHOW CPARAMETERO» ONOFF CCOLUMNS) & (CHARACTER ENR 108189) oe 01363200 
If cOLSTOPS LSS 14 THEN 01363210 
PARAMETERY t= 0 & "#"(624246) 01363220 » 
ELSe PARAMETERL t= OCTOEX ceabe TEL? 3 ae es eta, 04363230 
IF COLSTOPS LSS 2 THEN ee ery 
PARAMETER2 $2 0 @ "#"[614216) | Oe aos Orga aes 
ELSE PARAMETER2 ts OCTDEX (COLSTOP2) 3 es es Qe FG 9960 
SHOW (PARAMETER » PARAMETER2) ; 01363270 
If COLSTOPS LSS 3 THEN 01363280 

_ PARAMETERS $3 0 & "#" (684286) SN Ce hee ee 043963290 
ELSE PARAMETERS t= OCTDEX CCOLSTOPS2 Fe 04363300 
IF COLSTOPS LSS 4 THEN | Oe eet 
PARAMETER &2 0 8 "a" 1634226) Seles 949639320 
ELSE PARAMETER4 t= QCTDEX (COLSTOP4) 3 . 01363330 
ERRORX (7s PARAMETER3s PARAMETERG) 3 01363410 


AAA A A HAHAH AA HA A A st tt 5 et A ss st a a sh a ht st es 
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END ELSE 
COLUMNS @* TOGGLE CCOLUMNS» 1) 3 
END GOLUMN 3 


| er oe ce re ee ee ore ae 


PROCEDURE TEACH 3 
BEGIN 
LABEL NEXT 3 
If.NOT EMPTY1 THEN 


FOR I ¢3-Q STEP. 1 UNTIL RSWOM DO 
IF PARAMETERY = RSWO CI] THEN 
BEGIN 
Mota Ta 
Dts RSWOM 3 
. “END 3 
IF M LSS 0 THEN 
BEGIN 
IF 1 3* XFILE CPARAMETER1,» AH UMETERO eMAUROL TARARYS "1) LSS 2 
AND MACROLIBRARY NEQ "MACRO " THEN ot 
Tote XFILE (PARAMETER1s PARAMETER2ta"MACRO ayoery Po 
IF 1 LSS 2 THEN een aes 
BEGIN 
SHOW (CPARAMETERIs * INVALI") 3 
ERROR CNEXTs Gs "Die "» RWTEACH) 3 
END @ 
NUM2 t= FALSE 3 
~-NUM3 9% BOOLEAN ¢2) 3 
GISTIT ¢€0) 3 
60 TO NEXT 3 
END 3 
PARAMETER) 33 "TEACHER" ; 
PARAMETER2 $= OCTDEC (VERSION) 3 oe 
IF XFILE CPARAMETER1» PARAMETERGs 2) LSS 2 TREN. 
60.10 NEXT 3 
READ CLIBRARY CMJ» 15 IMAGE E€¥)) 3 
N ts DEC CIMAGE £0)», 8) 4 
_ CLOSE CLIBRARY) 3 
~ PARAMETER3 = N DIV 40000 3 
— NUM3 $@ TRUE 3 
“PARAMETERS $2 N MOD 10000 4 
NUM4G $= TRUE 3 
N ss RESETN 3 
LISTIT tit? $% POSTING AND QUICK 
END ELSE 
BEGIN © 
WRITE (PRETANK ta) TEACHI) 3 
WRITETWX 3 
FOR I 38 Q STER 7 UNTIL RSWOM DO 
BEGIN 
WRITE CIMAGE Cele TEACK2s FOR M 3% O STEP 1 UNTIL 6 DO 
CCPARAMETERO as RSWO CI + M))eCL686)5 PARAMETERO)) 3 
WRITEROW CIMAGE> FALSE* COBOL) 3 
END 3 
WRITE CIMAGE (¥]* TEACHS) 3 


48 1S 


START OF SEGMENT 


01363420 T 0086 
01363430 T 0088 
01364500 T 0092 
93 LONG» NEXT SEG 
01365000 Tt 005; 
01365500 T 0054 
01366000 T 0054 
01366500 T 0054 
keke tekak 
04367000 T 0000 
01367500 T 0001 
02368000 7 OCoo4 
01368500 rt 0002 
01369000 T 0004 
01369500 T 0005 
01370000 T 0008 
01370500 T 0006 
01371000 T 0007 
01871500 T 0009 
01371606 T OOLO 
01371700 Tt 0010 
01371800 T 0013 
01371630 T 0014 
01371900 tT 0017 
04372000 T 0018 
04372020 T 0018 
01372040 T 0020 
01372050 T 0025 
01372100 T 0025 
01372200 T 0026 
04372300 T 0028 
01372400 T 9029 
01372450 T 0O029 
Q1372500 T 0029 
01373000 T 0030 
(01373500 7 0032 
01374000 T 0034 
01375000 T 0034 
— 01376000 T 0040 
04376500 T 0042 
01377000 Tt 0043 
08377500 T 0048 
91378000 T 0046 
01378500 T 0048 
01379000 7 0049 
91379500 T 0050 
01380500 T 0054 
01380600 T 0051. 
01381500 T 0054. 
01382000 T 0058 
01382500 T 0056 
01383000 T 0060 
01383500 T 06060 
01384900 T 0066 
01384500 T 0076 
01386500 - 0078 
T 0080 


014387000 


& 


4g 
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WRITEROW CIMAGEs FALSEe COBOL) 3 01387500 T 

END 3 04390500 T 
NEXTS$ 01390600 T 
END TEACH 3 ye. Ouciasnane 01390700 T 

3 Se 49 1S 87 LONG» 

a a | +m * aa 01391500 T 
DEFINE PERCENT # oo OE 392000 T 
BEGIN 01392500 T 
TRANSLATING t= BOOLEAN CI t= REAL CTOGGLE CTRANSLATINGs 127) 3 01393000 7 
TRANSLATE] iz I 4 Mote so Bh cagancaue 01393500 T 
END# 3 des 0£394500 T 
ye ee ee ee 7 i eh a eel wee es = : 02402000 7 
PROCEDURE STOP 3 “ QO#402500 T 
BEGIN Q4403000 T 
DEFINE hg = CONTROLS# 3 01403400 T 
START OF. SEGMENT * 

LABEL NEXT 3 : PO es 01403500 T 
IF BOOLEAN CABNORMALEND) THEN Es oe 4409600 T 
BEGIN | a O,403610 T 
EMPTY1 8 ABNORMALEND = 3 3 01403620 T 
ABNORMALEND &= GREAKI 32 0 3 01403630 T 

IF BOOLEAN CINREADYQ) TREN 7” ei aaen 0'403650 T 

BEGIN Lees Se 01403690 T 

FOR [| 3# |] STEP 1 WHILE READYQ CI] NEQ USER OC 3 eee nS ee OE AO s 200. -T 

FOR IT te [ + 1 STEP 1 UNTIL READYGTOP DO Dee meer OFaO3TS0 T 

READY@ [I * 1] #2 READYG@ C1) 3 01403775 T 

READYQTOP ts READYQTOP = 1 3 04403800 T 

INREADYQ 45 0 a Gh assshe hed naiear Ssrmtdnin semetetercnnen OAAO3810 .T 

END 3 A ee QAO 3625 T 

END ELSE | Oe ee PRO 8850. 7 
BEGIN ; HSE cee OL ROIATS T 

IF FILEOPEN AND PARAMETERY NE@ "DS " THEN 04403900 T 
CLOSEFILE 3 01404500 1 

WRITE CPRETANK C#]s EQW) 3 | 01407000 T 
WRITETWX. 3 oe ue bac ae oo 09407500 T 

IF NOT EMPTY1 THEN : a ee 01 a0r6o0 yr 
SAVESTATE 3 Poe fe 04407700 T 

IF COUNTI GE Q THEN 04407710 T 

BEGIN 01407720 T 
ABNORWALENO ts IF EMPTY1 THEN 2 ELSE 4 3 . oo OL 407730 T 

STATION $3 0 3 Oe ORAORTEO 7 

So. TO NEXT 3 Cs QA AOPTSO” T 

END: : eee ee ee OT WOT 7 BO 

END @ 014076800 T 
FORGET CSTATIONI)D 3 . 01407900 fT 

> $8.2 * SLOT] 3 . uantil hls tinea tie SM TAOBOOU. T 
~REAO (RL C4534 90» DIRCTRY [¥]) 3 ee ee 09 e0B 400 7 

TF EMPTY1 THEN ope ee ee OA M0BS00  T 
DIRCTRY C1] t= 0) e ge es oo 04408600 T 

ELSE 01408700 T 
DIRCTRY CIJ«Ci8i1)] te 0 f 01408800 T 
DIRCTRY CI + 4] 4% 03 rae (tee 91409000 T 
WRITE CRY [45)0. 9G DIRCTRY C4l) 3 ee Og WOeB00 T 
STATION te 0 3 ee oe oy apesdo Tr 

If USER NEG BIGBIRD THEN oot : 09415400 T 
BEGIN 01415110 1 

T 


WRITE (BUFFERS [LUSERe *)» 45» BUFFERS CBIGBIRDs #3) 3 04415130 


0084 
0086 
0086 
0086 

NEXT SEG 
0054 
0054 
0054 
0054 
0054 

0054 
0051 
0054 
0054 
0054 


Keene KE 


0000 


- 9000 


0004 
0001 
0005 
0008 
0010 
0010 
0015. 
0019 
0022 
0023 
0025 
0025 
0025 
0025 
0027 
0028 
0032 
0033 
0034 
0035 
0037 
0037 
O04; 
0042 
0044 
0044 
0044 
Q046— 
0048 


0053 


0054 
0055 
0056 
0059 
0064 
0066 
0066 
0067 
0068 


2 
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 f 
2 | 
IF BOOLEAN CINREADYQ@) THEN : 01415140 T OO7y 
FOR I t= Q STEP 1 UNTIL READYQTOP DO 01415150 T 0072 
IF READY@ C1] = BIGBIRD THEN 01415160 T OOTY « 
READY@ CI] st USER 3 ; 01415170 7 0075 
READ (R2 CIF INREADYQ@*3 THEN 46 ELSE SLOTIJ» 90, CONTROLS. een be 01415180 7 0079 : 
FIKEACCESS #® CONTROLS £51] 3 0445190 T 0087 € 
IF FILEOPEN THEN ae . 01415200 T 00489 
BEGIN ; 01415210 T 0090 
N %= BIGBIRD x 32 3 01415215 T 0090 q 
 M ts CONTROLS C57),LEFTSIOE 3 r 04415220 T 0092 . 
FOR I ts 0 STEP 1 UNTIL mM 00 ee O4G 15.330 T0093 
WRITE CLINKLISTS CUSER32 + Ip #1] 256» ee 9448290 7 00905 — §@ 
LINKLISTS CN + Is #]) 3 Af og oe 91815250 T 0096 ee 
END 01415260 T 0104 
IF XDEX s= GONTROLS (62) GE@ 0 THEN 01415265 T 0101 | 
BEGIN ees 04415270 T 0103. 7 
WRITE CXARRAY CUSERe *]s XMAX X 13% XARRAY CBIGBIRD» 4a i oe ORAL 2TS 7 0403 
FOR XDEX %% XDEX STEP "4 UNTIL O DO oe 09445280 7 0107 © 
IF BOOLEAN (XNCHRS)«f11] THEN a 7 04815285 T O109 
BEGIN 02415290 T O111 
READ (10 [C2xMAXUSERS*XMAXxBIGBIRD#XDEX]e 30% IMAGE [¥*]) 3 08415295 T O1te € 
WRITE CIQ C2xMAXUSERS+XMAXXUSER*XDEX]» 30% IMAGE (*#])2 4 ss oO4.4453900 T O4lg . 
ENO 3 ee A 96159058 T0126. : 
Ene mo | ee oe BGS aLO yr -or|s @ 
END ee ORALB RIES TF  OF89 
BTGBIRO ts BIGBIRD = 4 3 02415500 tT 0129 
NEXT3 02416500 T 0130 6 
END 3. si tiediinadlecs stings se soaines GEATEOOD. T.-0291 
oe : . _ - $0 18 132 LONG» NEXT SEG g a 
PROCEDURE PROGRAM i : Oe ONASTIOO 7 OOS] 6 
BEGIN = OS  gaipa0 9. 0084 
LABEL NEXT» EXIT 3 01417120 T 0054 
START GF SEGMENT ee«xeetuten $4 @ 
NEXTS . : . ies a 01417150 T 0000 
CASE VERB OF oe OLaLR4eo T0000 
BEGIN. | eS ogai7170 10000 @ 
EXECUTE 3 Oe 2 ~-Q14417175 T 0004 
DITTO 3 . 04417180 T 0002 
COPY 3 01417190 T 0003 @ 
INLINE 3 . el | . eee O1417200 T 0004 
CHANGE 3 eg ee OAM aed Tt 0006  @ 
EOIT 3 OER QL O17830 OT OOOF 
SAVEIT 3 . 01417240 T 0008 
RESEQ 3 | 01417250 T 0014  ] 
PUNCH 3 . er ne eee ere 08417260 T 0015 
PRINT 3 * . Oe ORAL ERO: Te 0016 “ 
DEBETE 3. ee cabreeo +. 6047 @ 
CLOSEIT 3 04417300 T 0018 
COMPILE 3 O$417310 T 0021 
COLUMN 3 04417320 T 0022  ] 
SCAN 3 01417330 T 023 
LISTING 3 01417340 T 0024 
INCREMENT 3 01417350 T 0025 @ 
TAB 3 01417360 T 0034 
PERCENT 3 01417370 T 0064 
QUICKLIST 3 01417380 T 0067 @ 
a 


as StS > f os a Won Soins oe eticieges ca. cpap ue . sett sles. 
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LISTIT (0) 3 
OPEN 3 

MATL 3 

TEACH 3 
REMOVE 3 
REPLACE 3 
STOP 3 

GO TO EXIT 3 

END 3 


Tf BIGBIRD GEQ O THEN 
GQ TO NEXT 3 
EXITS 
END PROGRAM 3 


BOOLEAN PROCEDURE RC (START) 3 
VALUE START 3 
BOOLEAN START 3 


BEGIN 
SAVE FILE QUT RONE DISK SERIAL £1347) "R/C" HHL" C1» 90, SAVE 99) 5 


SAVE FILE OUT RTWO DISK SERIAL Ci5896] "R/C" "2" C1, 2568 SAVE 98) a 
ARRAY DIRCTRY*s NEWOIRGTRY (O890)» 


LINKLIST £03255) 3 
LABEL ENDOFPROGRAM 3 
CRARGE (0) 3 
FREEFILE (0) 3 
TF START THEN | 
BEGIN 
SEARCH. CRONE IMAGE Ce)) 3. 
IF IMAGE €6] GTR QO THEN 
BEGIN 
I $= STATUS CIMAGE (4)) &- 
WRITE CTWXOUTPUT CIMAGE [0])» USERUN) 3 
ae TQ ENDOFFROGR AM ; 
EN 
IF ace (0) GE@ Q THEN 
BEGIN 
READ CRI C45) 90» DIRCTRY [¥]) 3 
DIRCTRY (90) t= 12 5 


FOR I t= 0 STEP 2 WHILE USERCODE = DIRCTRY (1) NEG 12 eo 


apeepere RY CI] t= ABS CUSERCOOE) 3 
WRITE €R1 F45)% 90s DIRCTRY C#J) 3 
END ELSE. 
BEGIN. 

DIRCTRY (0) %= 12.3 
WRITE CRONE [45)% 90, DIRCTRY t+) 3 
ENO GO 

SEARCH CRTWOs IMAGE [*}) 3 
IF IMAGE £0} LSS 0 THEN 
| WRITE CRTWOLOIs ts IMAGE C¥]) 3 
END ELSE. Bos 
BEGIN 
READ (Ri (452) 90» DIRCTRY [*)) 3 
VSER i3 #2 3 
FOR N t= 0 STEP 4 UNTIL 1 DO 


01417390 


T 0069 
041417400 T 90070 
O1417410 T OO74 
04417420 7 Q072 
O£417430 T 0073 
01417440 T 0074 
041417450 7 0075 
01417460 T 0076 
0#417470 T 0077 
START OF SEGMENT kee ete ken 
x2 IS 30 LONGs NEXT SEG 
oe 02427480 7 0077 
041447490 T 0078 
024417500 T 0078 
OF4i8000 T QO079 
91.158 80 LONGs NEXT SEG 
— O4418900 FT 0054 
01418200 7 0054 
01418300 T OOS) 
01418500 T 0054 
04418600 T 0054 
START oF SEGMENT wxxewhawns 
O1418700 FT 0006 
01418800 T 0012 
01418900 7 0014 
04419000 T 0016 
01419100 T 0016 
01419150 7 0017 
01419200 T. Q018 
01419300 T 0018 
041419500 T 049 
04420000 T Q0a4 
01420100 T 0022 
01420200 T 0022 
01420300 T 0025. 
01420500 T 9030 
01420600 T 0Q32 
01421000 T 0032 
04421500 T 0033 
01422000 T 0033 
04422500 T 0039. 
— 01423000 7 0040. 
(01423500 T 0045 
01424000 7 OO4F 
01424500 T 0052 
91425000 T 0052 | 
04425500 T 00582 
01426000 T 0053 
01426500 T 0058 
01432500 T 0058 
01433000 T 0060 
_... 01433500 T 0064. 
08436500 T 0067 
02436600 ~t 0067 
01437300 T 0067 
01437500 T 0073 
01437600 T 0074 


a © @ 


man 
ah) 
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FOR I $= Q STEP 2 WHILE USERCODE #* DIRCTRY C1) NE@ 12 DO 
IF USERCODE NE@ 0 THEN 
BEGIN 
READ CRI C142] 90 CONTROLS [EC*)) 3 
FILEACCESS t$* CONTROLS (511) 3 
IF FILEOPEN OR BOOLEAN CN) TREN 
BEGIN 
NEWDIRCTRY (USER &* USER + 2] 8% USERCODE 3 
WRITE CRONEs 90% CONTROLS (€¥]) 3 
IF FILEQPEN THEN 
BEGIN 
REAQ: SEEK (R2 t16 x TJ) 3 
NEWDIRCTRY (USER + 1] t# DIRCTRY tl + 1 » 
M $s CONTROLS (S57) .LEFTSIDE 4 
FOR Q ## QO STEP 1 UNTIL M 00 
BEGIN = 
“READ (R20 256% LINKLIST €4)2 4 fe 
WRITE CRTWOs 256% LINKLIST (#]) 3 
END 4 
IF ™ NEQ@ 31 THE 


WRITE CRTWO 16 x USER + 31]% i+ CONTROLS (*)) 3 
DIRCTRY CI] t= 0 3 ceeds _ re 
END ie 
END 3 


END. 3 ; 
NEWDIRCTRY (USER + 2] t# Je 3 
IF USER GEQ OQ THEN 
WRITE CRONE C45) 902 NEWDIRCTRY (C¥)) 3 

 €LOSE CRLle PURGE) 3 

READ ¢R2@ (0}) 3 

CLOSE CR2e PURGE). 3 

ENDOFPROGRAM! 
Re aa TRUE 3 


aa ee $3 18 

CONTROLS [90] #3 12 3 
IF NOT RC CTRUEQ THEN 
BEGIN 
_ BIGBIRD t= =i 3 . 

2 T0-4e 450.3 ee 
FREEMEAD ¢* MAXFREEHE AD te (XMAX # 2) x MAXUSERS Bee 
PROGRAM 3 : 

BOOL t= RC (FALSE) 3 
IF XFILE (HTEACHER®» QCTDEC (VERSION)s “4) GTR O THEN 


NUMBER OF ERRORS DETECTED =  O, COMPILATION TIME = 325 SECONDS. 


PRT SIZE = 1713 TOTAL SEGMENT SIZE = 4970 WORDS DISK SIZE = 360 SEGS# NOs PGMs SEGS = 62 
ESTIMATED CORE STORAGE REQUIRED = 10779 WORDS, 


ESTIMATED AUXILIARY MENGRY REQUIRED = 0 WORDSs 


+ at 
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01440100 
01440500 


04443000 


01445500 
01446000 
01446500 


01447000 
——91447100— 
914447500 


01456500 
04456600 
04457000 


01458300 


94459120 
01459130 


01459300 
01459320 


01459400 
_ 01459500 


READ (LIBRARY) ¢ ned en een een 


01438000 
01439000 
01439500 
Q4440000 


01441000 
01441500 
01442500 
01442600 
01442700 


01443100 
04444100 
01444500 
01445000 


04446600 
01446700 


02448000 
01455000 
01455500 
01456000 


01458100 
04458200 


01458500 
454 LONG 
01458900 
01459000 
01459100 
01459110 


04459200 
01459340 
73 LONGs 


2 LONG» 
69 LONG, 


CP oki, Ga ee AAs sg Ht 9 A tt HA HAA HH Ht Rt Ht 


NEXT SEG 
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NUMBER OF CARD@IMAGES PROCESSED = 4095¢ 


LABEL 


QOQOOQOOQOOCOLINE 


COF7T6L947COMPILE R/C ALGOL LIBRARY 


o tt @ 


ay 


ALGOL 


“AR 


